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1UGS SOF TWA r 
el bie AAMEHUGSOF Th 
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UGSOF TWAREHUGSOF j 
EHUGSOF THAR oe S0F1 li W a AR E Ht IGS JET 
ARE HUGSO ERS) 
TWAREHUC 30 eT 
OF TWAR 


‘ EI DSC Thats Ir He 
TWAREHUGSOF TWARES " 
PTW AR E HL IGS 3) VF TWAR E HUG 


SOF -EHUGSOE 4 
te meal WATS HUGE 3( 
i TWAREHUG 
3S0F TWAREH 

HUGE ra hint 


Becca TWA . ’ Jf WARE SOF T sj 7 ow. We 7 Ba SGOFTWARE HUG s 
AREHUGSOF IGE i SOF TWA 5 : ak Eke i al 5 f SOF ie iF ia nes | 
TWAREHUGSOF Thr , : OF mae y TW ARTE : a SREHUGS OR: [ 

OF TWAREHUGSOF TWAREHUGSOFE TWAREHUG Sor TMARE JGSC : P el : . : SOF TWeé 
GSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWARE HUGS SOF TWAREHUG! SOF TWARE HUGSOF TuWAR E HUGSOF 7 
HUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWARE HUGS OF TWAR EHL deiaier TWAR See SC 
REHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF Hat 
WAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF THAREHUGSOF TWAREHUGSOF TWAREHUG! SOF THARE IH 
MEWAREHUGSOF TWAREHUGSOF TWAREHUGSOFTWAR ISOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAR 
WF TWAREHUGSOF TWAREHUGSOF TWAF JGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TW 
UGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF 
EHUGSOF TWAREH scnaol lid lease ye eases SOF TWAREHUGSOF TWAREHUGSOF THAREHUGSOF TWAREHUGS 
AREHUGSOFT SOF TWAR t HUGSOF Tl WAR EHUG SOF TWAREHUL 3° oF eee Gs SOF Lea oy 
TWAREHUGSOF T tke ) We tk 3 a a 

OF TWAREHUGE SCF TWARE Sia 50) ‘ wf aT ; IG ‘ SOF THARE HUGE SOF TWA 
GSOF TWAREHUGSOF TWAL ] ; Ate [ ae 3 f Af EHUGSOF TWAREHUGSOF 1 
HUGSOF TWAREHUGSOF T Pees aoe be ith ralleiye 
REHUGSOF TWAREHUGSOF 
WAREHUGSOF TWAREHUGS 
EF TWAREHUGSOF TWAR ( 
SOF TWAREHUGSOF TWARE 
UGSOF TWAREHUGSOF TWAREF 3C ES Rye 
EHUGS SOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWARE! 
AREHUGSOF TWAREHUGSOF TWAREHUGSOF TWARE HUggé F 
TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWARE 
OF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWA 
GSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOFT 5 SOF THAREHUGSOF TWAREHUGSOF TWAREHUGSOF t 
MHUGSOF TWAREHUGSOF TWAREHUGSOF THAREHUGSO : UGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSO 
REHUGSOF TWAREHUGSOF TWAK EHUGSOF TWAREHUG vA EHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUG 
WAREHUGSOF TWAREHUGSOF TWAR EHUGSOF TWe lH DC) “peters aed TWAR cohen TWARE os SOF TWAREH 


SOF TWAR EH 
UGSOF TWA 
; SC OE TS 


UGSOF TWAREHUG SOF TWAR EHUG SOF T WARE: HUGS 
CEHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHU 
WARE ee ae TWAR jaioobe af SOF LE ie Poa: hee TWAR ke 


F TWAREHUGSOF TWARE HUGSOF TWARE HUGSOF TWaAr 
RE HUG 


SOF TWAREHUGSOF TWAR oh a etc opeh ih a TUAR HUG: _ TWAREHUG! oUF F THAREHUG! TW 
S0F TWAREHUL ey 


SHUGSOF TWAREHUGS 


= 


CF TWAREHUGE SOF eee: a CF ce oT WARE HUGE sO FF THARE HUGS 
EMHUGSOF TWAF UGSOF TWAREHUGSOF TWAREHUGSOF TWA IF Tue ARE: HUGS SOF TWARE HU 
TWAREHUGSOFP TWAREHUGSOF TWAREHUGSOPF Tk SHUGSOF TWARE 
OF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOF TWAR EHU u (35 SOFTWARE HUG! SOF TWAREHUGSOF THA 
GSOF TWAREHUGSOF TWAREHUGSOP TWAREHUGS OF THAR EHUGSOF TWAREHUGSOF TWAREHUGSOF TWAREHUGSOFT 
gen coen aeetias a ll Ete fe mene i Jt§ eae Misti awed | SOF TWART lk a af TEGRS fia es 
REHUGSOF TWAREHUGSOF TWAREH 

WAREHUGSOF TWAREHUGSOP Tle ee 
ET LEA RE ETS ET LEAR Ae oe) LEA Be eatin Sue Th AEE = I 


rept ft 


=e = 


NOTE: 


885-1013 


HUG SOFTWARE VOLUME II 


All BASIC programs in Volume II were pre- 
pared with Extended Benton Harbor BASIC 
10.02 (Heath model #H8-13). Unless other- 
wise noted, all programs can be loaded by 
the command, LOAD "Program Name" or LOAD" ", 


Some programs may convert to disk; however, 
it is the users' responsibility to make 
whatever modifications necessary. 


All questions regarding an individual pro- 
gram should be directed to the author, whose 
name and address can be found in the Software 
Catalog and, in some cases, within the pro- 
gram itself. 


Additional documentation on some of the pro- 
grams may be found at the end of the listing. 


Copyright 1979 Heath Company 


Tape Index Counter 
Side 1 


23 
45 
85 
100 
115 
125 
145 
185 
150 
205 
210 
200 
260 
265 
Side 2 


015 
035 


050 
065 
085 


a 


TN DEX 


Volume II 


BASIC Programs 885-1012 


Program Name 
Data Base-Wielde (use 'FLOAD') 


Create-A-Program-Dennison 
I/0 Routines-Masuda 

File Maintenance-Roseman 
Multisort-Roseman 
Mini-Bug-Horne 
Chi-Square-Forsythe 
Expansion Chamber-Fuller 
Multiple File Management-Hicks 
Bolt Hole Locater 
Calendar-Wilkinson 
Resonant Freq/Calc-Borden 
Pad Calculator-Borden 


Index Leader-Craig 


Weather Records-Myrup 
‘Get File for Weather' 


Low Pass Design-Dacey 
Band Pass Design-Dacey 


Amplifier Design-Dacey 


Page Number 


B-1 

B-8 

B-21 
B-26 
B-32 
B-38 
B-45 
B-46 
B-54 
B-67 
B-68 
B-75 
B-78 
B-80 


B-81 


B-87 
B-92 


B-98 


Tape Index Counter 


Side 1 
Side 1 
Side 2 


side 2 
100 
15 
130 
145 
155 
170 
225 
235 
190 
202 
210 


[INDEX 


Volume II 


BASIC Programs 885-1012 Cont'd, . 


Program Name 
RC OSC Design-Dacey 


DECOCT-Kern 

MORSCII-Kern (FLOAD) 
BASICLOCK-Kern 

Text Handler-Greenhalgh 
Intelligent Disassembler-Warner 
Utility Graph-Fuller 

Electronic Formulas-Crabtree 
Metric/US Conversion-Stil Iman 
BEEP TED8 Source Code 

TIME TED8 Source Code 


TED8 Source Code 885-1014 


Program Name 


Renumber- Ignatius 
Renumber/Merge-Moss 
Utility Routines-Price 
TAPE Management-Turner 
8080 Disassembler-Shiffrin 
CCS 'SUPPRESS-Morgan 


Mail Label-Farmer 


Page Number 
B-103 


B-107 
B-113 
B-126 
B-128 
B-131 
B-137 
B-141 
B-149 
B-151 
B-153 


Page Number 
1 


22 
43 
70 
108 
1274 
130 


SHSSUSKG> <<SPCOPKF SCT OCWSKASK ROSES «6<<U><02KL> II 


PROGRAM HAMNE: DATA BASE - WIELDE 


6601 
GaGar 
GGGGs 
Beaead 
SGeaegs 
BaG5@ 
Baars 
GORE 
GAESS 
BALES 
Gai 148 
G1 26 
GG 1 Se 
@aise 
6H 2068 
66216 
GG226 
GG238 
Aaa 
GGS16 
GaS15 
88526 
gas 
ac4a6 
SG462 
GG483 
GG405 
60487 
He418 
GG415 
GG428 
GG428 
S644 
SG4568 
GG468 
SG456 
SG508 
BGS 28 
Ge S46 
SST 1 


REM INTERACTIVE DATA BASE ‘<9-1-78) 
REM RUSSELL WIEDLE AUTHOR 

REM $717 WEST 38TH 

REM TOPEKA. KS 66614 

REM €913) 272-GSo1 

GOSUE 1568 

BS=CHRE( 1G2+CHRE* 1 G2+CHR $< 1G +CHES* 1G) 
BE=BE+BS+ES 

IF Mi>e GOTO 328 

LO=18 

DIM LELo>. LSC 

AS=S5 


DIM ASCASS. ACAD. 32 


LIHE INPUT "SUBJECT ==> “SAFC 19 
LY G@o=1 

GOSUE SiBe 

GOTO 326 

REM ADD 

IF C9$="A" THEM FPi=95 


IF C#="C" AMD Pici THEM PRIWT B$s"HEED LINE #"! RETURN 


GOSUEB Saae 

C2=8 

LINE INPUT "ENTER DATA ==> "SDS 
PRIHT B#sDde" ase DRT Aas” 


IF ACM. DL2=8 THEN GOTO 946 
F= 1 

S=ACP. DL 

b=s 

IF Fit=1 THEM GOTO 6&e 

C= 

Ach. Gio=h 

P=-i 

GOTO Fee 

FOR I=1 TO INT&Pi> 


SGE26 C=5 


PROGRAM WANE: DATA BASE - WEELDE < COHT BD 


Bead 
46668 
GaETR 
Si St ated S| 
Bay oe 
Bari 


Cor m e ee 
mal 


UEC MA EN 
ml ot 


i Go im 
fr Sy 


Mogi oh age ug WO to to oo 


To eye a mf 


wr) 
ee] 
1] 


Soag co fs ba te Rae Oe 
{ 


an 


m 

a ed 

Ty Mm 
Ty Ty CA 
SI mm mo 


oi] 
—s 
a] 
te! 


Bii se 
@1lis5 
8iliée 
B1ire 
Hlice 
&1i 38 
Biigss 
iiss 
61288 
Gil Ses 
Gi 2a 


= 
a, a= 


S13 
THEN GOTM Fee 


oo 


beat 
me ui 


OF REPLACE? 
AHD P1l=F GOTO S4a 


.o2e 


iF OC 


min 
Git as 
toe APE LD LY Ter dap 


ri Wp ee et re eH oo ea 
ae 


an) 
om Gms 


me oF 
wm UW 


cen 
ig oe 
REM 

GOTO lLeee 

Aad. Ai o=M 

Ath. Si o=a 

Aeon. Da oh 

AE OH oS =D 

ACE. SioaG 

RETURH 

REM SELECT 

IF PicsiINTePi? THEM GOTO 1136 
TzZ=PF 1 

SHAMS Pid 


Lap 


FOR ‘Ist To Pt 


BF iy by) 
a wi 

if 
ok 


ree HOW Rae 
irs 
TRY 


“Cag THEM GOTO 1196 

C2=cC 

PRINT BS 

GOTO 1199 

PRIHT BEs"ENTER EXISTING #" 
C2=8 

RETURH 

REM IMSERT-SELECTED 

GOSUE LPrae 

IF C2=6 THEM GOTO 1299 


PROGRAM HANES DATA BASE - WIELDE < CONT“D > 


81218 H=C2 
@1l226 Pi=P1i+.@1 


i236 IF ACACHM1>.D1Lo=H THEM AC ACH, Mid. DL O=ACH, 


@1235 IF ACACH.MLa.019<¢9N THEM ACS2,.515=ALN. S19 
G@i248 DS=ASCHD 

Bi2Z58 GOSUB 424 

@126@ C2=6 

@i27G@ PRINT B$iDs" ## THSERTEDak” 
G1299 RETURN 

@13@G REM CELETE 

@1i385 Ti=F1 

@13@6 Pi=T2 

1219 IF Cz=@ THEN i499 

G@1338 N=C2 

i346 MZ=ACH. M1) 

G@iS45 CS=ACH. D1) 

@iS5@ IF ACN. D19=8 THEN GOTO ito8 
@1S55 ACCS. MLS=MN2 

1353 C4=cs 

@126@ CI=ACCT. S13 

@1365 IF Ca¢2@ THEH GOTO 1355 
Gizre FIKC4, SLO=ACH, SLD 

GilS86 ACH. SLS=ACH. BLD 

@139@ IF ACACHSMI>.DLse¢5H THEN ACS2.S519=ACN. S12 


I 


I 


@i46G IF ACACH.M1o.D12=H THEM AC ASN NLS DLOSAeH Sid 


@1416 ACH. Mio 

61426 ACH. blo 

@l1436 ACH. Si2=8 

@144G@ PRINT BErAetHos” +eeDELETED ek" 
1445 Ce= 

B1ldiG@ Asten>="" 

Bid6a@ ACG, 515-8 

@idés IF Tice GoTo i499 
@1l468 FAUSE saa 

Gl4PO Ti=Ti-i:GOsue 18548 
@idrS GOTO 1318 

61499 RETURH 

G1ltGe REM HELP 

G@i51G PRINT "“COMMAHDS: " 
BitSG PREIWT "“A..9 AbD ITEM” 
B1S56 PRIHT "fC..39 CHANGE” 


<HCUPKG> 


PROGRAM HANE: DATA BASE -— WIEie 


G1LSre 
G@is96 
G1e1a 
61628 
Giese 
B1LS7a 


818399 
G1 Fee 
#171 
Bir 2a 
G1 PF3a 
Biyv4e 
ee 


az168 
AZ Pee 
aE228 
AZ240 
BE25C 
G2278 
A227 1 


ce hae a ha 
Be? ? a 


PRIKT 
PRIWT 
PRINT 


.? GOTO 
2? GOTO 
GOTO TOR” 
PRINT "£5..2 SELECT FOR 
PRIHT “<1... INSERT 
PRINT “H.s? DELETE 


PRIHT RE~DISPLAY 


PRINT “a?3 


RE TUR 

FEM VALIDATE HIER 

H=Fl 

FOR [=@ TOL 

IF ACN. ML>=C2 THEM GoTo 
HAH. Pid > 

HEMT oT 
RETURH 
FRIHT 
RETUEH 
REM FIHDSGUTLIWE 
Fo=e 

IF Cf="qi" 

LINE IHMFELUT 
IF LEH S¢3=8 THEM 
S2$=55 

IF FPil=8 THEH Fi=2 
IF C#="F" THEN PRINT BS 
IF Fi=i 6070 2iee 

MS=Mi LSS Lt Sp} 

GOTH Bret 

HSS Li Lb=cs Wa=1 

FF [=e 
Lec Dls=be 
HEAT I 


"THUALID 


CHTREL 4.8 
GOSUE S48 
CHTEL 4.4 


IF Cos ae 
PRL Ute 


THEH 
NSSESU OS ONS 


MCW IE. 
SELECTED 
SELECTED 


FAUSE SEG PRINT 


LOWER LEVEL" 
HIGHER LEVEL” 


DELETE" 
Ten" 
ITEM 


ITEMS 


LIST COMMAHE 


Vike 


iFFa 


HIERARCHY" © C2=a 


THEN P1=1!S$=CHRSCG9¢PRINT 
"DATA TO BE FOUND 
S$=52$ 


"SSF 


?PRIWT 


Helo 


CP Lo 


LF 3 


Bes" 


DISPLAY OUTLINE 
FIND FIRST MATC 


FIHD MEST WATC 


"SRECLI8GOTA 2era 


PGOTO 2333 


PROGRAM MARE: 


O2236 
62368 
G@2326 
G2246 

2358 
B2368 
G2338 

2599 
42406 
24168 
82426 
82436 
@2446 
82436 
G2466 
82476 
62438 
82458 
B2568 
42565 
62718 
B2226 
62521 
@2525 
G@252¢6 


@2536 


DATH BASE - WIELDE < CONT”’D > 


IF FS=@ THEN PRINT 

PRINT "DATA FOUN” 
FOR I=G@ Ta LY 
Lets=LacTo 

HEAT I 

MHS 

L=LS 

RETURH 

REM —-HIERFIND- 
LOtLSo=MS 

VS=ACMS.D19 
LS=LS+1 

LOeLoaas 

IF WS<s@ AWD Fo=8 GOTO 2n28 
S=LS-1 

IF Lo=@ GoTo 

VS=LICLo> 
MS=ACUS. S19 
VS=MS 

LICL aaa 
GOTO 2Fee 
REM 

IF C#="0" THEN PRINT TABS Loess sas GO 
PRINT CHEE? 2 

FOR T=1 TO LEN“ ASC US -C LENG S$ +1 

IF <MIDFCAF CWS. 1. LO=LEPTS i S#. 129=65535 


"HOT FOUND" GOTO 2399 


27H 


2, 1, LENCS$) 5=539 


82246 
@2556 
82568 
G22576 
82538 
G2598 
@2618 
82626 


IF FSeo@ THEN GOTO 27ee 
HEXT I 
IF ACS. Did<36 GOTO 2658 
IF ACUS. 519438 GOTO 2518 
WS=f 
GOTO Sree 
WS=ACWS. S15 
LECLaase 
GOTO 2rac 
WS=FOWE. Dd 
S=Litd 
See yalis 
RET 
IF LS=8 GOTO 2Yr4e 


TO 2566 


THEN FS=<NIDSCAsiUS 


PROGRAM WANE: DATA BASE - WIELDE < COHT<“D 


G27 14 
B27 28 
82748 
BP Gee 
BP ere 
areais 
ar 2a 
BF a25 
BP G26 
BF ese 


AF ASS 


BrPad4e z= 


Brass 


IF Facce GOTO 274s 

GOTO 245 

RETURE 

REM FRIHT RTH 

GOSUB S7aee 

meek 

G@p="5 =" 

HEA. D1> 

IF Ate. DLs228 THEM GF="54+ " 

FRIMT “MEECHRS CQ 308; Rats 
KB2tLo59 THEN PAUSE Sel oe eS 


BP ES8 =H 


GP aea 
ibs 
a2G16 
Gas 2e 
GSH3a 
S635 
Goede 
BSe4s 
Bens = 
GS85 
Beeee 
BSeye 
SH96 
82 1 Ge 
@Si11ie 
BE1lil 
@Siiz 
@Siid4 
@S1ise 
Bei 2 
Si25 
82130 
B14 
MS 138 
ao166 
G@S17@ 


RETURN 

REM FIHD SLOT 

FOR N2Z=MABE 2. H29 TO AD 
IF ACS. Milos GOTO ses 
HET He 


Ha 


PRIHT "FULLIE" 

GOTO 228 

H=He 

IF H2<¢A9-16> GOTO see 

PRIHT AS-NHES"NORE ADDS POSSIBLE” 
H2=2 

FETURH 

REM INPUT PROCESSOR 

LIHE INPUT "COMMAWD ==> "st 
IF a oie THEH Siid4 

IF ASCOCEIt62 AWD ASCEMIDSCCHE. 299<56 THEN Size 
Pale. CHRECT) SCHRSCTD SCHRECT) SCHRECPD SCHRECPD 
GOTO Siig 

PLi=VALCRIGHTECC#. LEMSC$ 3-159 

Co$=CF 

CS=LEFTECCE. 19 


dit 


IF C#="L" THEN GOSUB Sieg 
IF C#="H" THEN GOSUEB Seee 
IF (#="A" OF CE="C0" THEM GOSUB 4ae 
IF C#="7" THEN GOSUE Bee 


is 


SHSCUSSG> <SSCOPK FPR TOAIUSKASSROKES 6<<USKORS LS 


PROGRAM HAME: DATA BASE - WIELDE < COHT“D > 


@81sea 
S185 
68158 
GB135 
GS268 
G8276 
GS256 
8S258 
GS566 
S505 
Be516 
S515 
@S518 
S526 
GS525 
S335 
aS546 
BS556 
G@S552 
@SS55 
GS566 
BS6G8 
SSeas 
ose 1h 
ASE 2A 
68646 
SES 
Segre SS 
BS7HS 
G6S71e 
GE? 26 
GaP 3a 
GS" 56 
G7 se 
G27 39 
GSoee 
GSseas 
G82516 
BSS2h 


BES3e 


IF C#="S5" THEN GOSUE 


1858 
IF C$="F" GR C$="C" THEN GUSUE 2060 
IF C$="I" THEN GOSUB 126e 
IF C$="8" THEN GOSUB 13a 


IF C$="?" THEM GOSUB 1Sae 
IF C#="R" THEN FRIHT BS 
IF C#o5"?" THEM GOSUB Freee 
RETURH 

REM LOWER 

PRIHT Bt 

S=ACM. D1) 

IF Pi<-IWNTcCPi>s THEN GOTO S56a 
IF Pi=1 THEN GOTO Si4@ 
FOR i=] TO Pi-i 

S=ACS.515 

HEXT I 

IF S=@ THEM GOTO 8c68 
L=L+1 

Lebo 

M=S 

RETURM 

REN HIGHER 

PRINT BS 

IF L=@& THEH GOTO Sasa 
L=MNABfG&. CL-MARE PL. Dao) 
M=LeLo 

RETURH 

REM PRINT HIER 

IF C2<>@ THEW PRINT A$eC2os" #tSELECTED#” 
PRINT Gt 

FoR I=6 To L 

PRINT TABCIOSAECL« TO) 
HEAT I 

FRIWT G+ 

RETURM 

REM TOF 

PRINT BS 

M=1 

L=8 

RETURH 


CONTENTS 


OVERVIEW 
COMMANDS 
SAMPLE DATA BASE 
SAMPLE PROGRAM 

HELP 

LOWER 

CHANGE 

ADD 

HIGHER 

FIND 

LOP 

REDISPLAY 

SELECT 

INSERT (MOVE) 

DELETE 

OUTLINE 
STORAGE REQUIREMENTS 
OTHER APPLICATIONS 
SUBROUTINES 
MODIFICATIONS 
VARIABLES 
INTERNAL STRUCTURE 


CHANGING DATA BASE SIZE 


OVERVIEW 


Interactive Data Base (IDB) is a data storage and retrieval system. 
The data base has a hierarchical organization which allows data to be 
added, changed, or retrieved with a minimum of effort. The hierarchy 
can be used in any way desired to store data. For many applications the 
highest level of the hierarchy will be used to identify the data base and 
the next level is used to break the data into several logical categories 
(usually 2-10) that will be beneficial in retrieving the data. The third 
level in this case could be the data or sub-categories. The data when 
entered can be single data item or a hierarchy of data items. 


Data retrieval is accomplished by "navigating" up, down, and around 
the hierarchy with a set of commands that are provided with IDB. After 
each command is executed, data items at the current position are displayed 
along with all of the cata items in the direct path from the top of the 
hierarchy down to the current position. A "Find" command can be used 
to locate a data item containing a matching character string. The "Find" 
command can be used to search data items hierarchically forward from the 
current position or from the beginning of the hierarchy. The data base may 
also be listed in an idented outline format if desired. If a hardcopy device 
is available, the outline format makes a good working document when the 
computer is not available. 


The data base is maintained by commands that add data items, change 
data items, delete data items, and rearrange data items within the hierarchy. 


COMMANDS 


This section describes the commands that are provided with IDB. The 
command syntax rules are: 


1.) First character must be alphabetic or "?". 

2.) Second and third character must be numeric if allowed (indicated 
by ree 

3.) Commands that require text type data will prompt for it (E.G. ADD, 
CHANGE, FIND) 


(A..) ADD ITEM 
"ADD" will add a data item to the list currently displayed. Ifa 
number is entered with the add command the new item will be added 
after the item specified. To add a data item as the first in the list 
specify "A®". If no number is specified the item will be added to 
the end of the list. 


(C..) CHANGE ITEM 
"CHANGE" will allow the text of the specified item to be replaced. 


(L..) GOTO LOWER LEVEL 
"LOWER" will move the current position within the hierarchy one 
level lower on the specified path (data item #). 


(H..) GOTO HIGHER LEVEL 
"HIGHER" will move the current position within the hierarchy up 
the path currently displayed by the number of levels specified. 
The default is one. 


(T) TOP 
"TOP" will move the current position within the hierarchy to the 
highest level. 


(S..) SELECT FOR MOVE/DELETE 
"SELECT" is used to identify a data item that is to be moved to 
another location within the hierarchy (See (I..) "INSERT") or to 
identify a data item to be deleted (See (X) "DELETE"). 


(I..) INSERT SELECTED ITEM 
"INSERT" is basically the same as "ADD" but the new data is the 
data item that was selected with "SELECT". 


(X) 


(R) 


(?) 


(F1) 


(F) 


DELETE SELECTED ITEM 


"DELETE" will delete the data item that has been selected with 
the "SELECT" command. When the the data item is deleted any 
items at a lower level below the deleted item will move up one 
level. If a number is specified with the delete command 

(e.g. X12) that number of data items will be deleted from the 
hierarchy starting with the data item selected. The multiply 
delete feature may be disabled if so desired (see section on 
modifications). 


RE-DISPLAY ITEMS 


"REDISPLAY" will present the last display of data items again. 
This command is used if number of data items is greater than 
screen size on a CRT terminal and a redisplay of the first items 
is desired. 


LIST COMMANDS 


"2" is the help function. A list of the available commands is 
displayed for quick reference. 


DISPLAY OUTLINE 


"QUTLINE" will display the entire data base in outline format with 
the data items for each level indented below the owner of those data 
items on the previous level. 


FIND FIRST MATCH 


"FIND FIRST" will prompt for a character string and then starting 
at the "TOP" searches the data base hierarchically stopping at the 
first match. 


FIND NEXT MATCH 


"FIND NEXT" will prompt for a character string (or will use the 
last string entered if "return" is hit with no character string) 
and then starting with data item number one of the current display 
a hierarchical search will be performed stopping at the next match 
in the data base. 


(TIDOW) O€ MOT: 
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SDid> 


*LOAD “IDB" 


SAMPLE PROGRAM 


*GET "FARM DATA BASE" 


* CONTINUE 


ADD ITEM 

CHANGE ITEM 

GOTO LOWER LEVEL 

GOTO HIGHER LEVEL 

GOTO TOP 

SELECT FOR MOVE/DELETE 
INSERT SELECTED ITEM 


DELETE SELECTED ITEM (O) DISPLAY OUTLINE 

RE-DISPLAY ITEMS (Fl) FIND FIRST MATCH 

LIST COMMANDS (F) FIND NEXT MATCH 
—— =") m 


1)+ SMITH 
2)+ JONES 
3)+ CLARK 
COMMAND ========) Ll 


2)+ CROPS 
COMMAND ========) L2 


1) CORN 
2) BEANS 
COMMAND =<==<=====) (€2 


ENTER DATA =====) SOYBEANS 


SOYBEANS **NEW DATA** 


FARMS 
SMITH 
CROPS 
1) CORN 
2) SOYBEANS 
ENTER DATA =====) WHEAT 


WHEAT **NEW DATA** 


1) CORN 

2) WHEAT 

3) SOYBEANS 

COMMAND ========) Hl 


1)+ ANIMALS 
2)+ CROPS 
COMMAND ========) Fl 


DATA TO BE FOUND ======) BARLEY 


((BARLEY)) DATA FOUND 


1) 7/7/78 HAIL DAMAGE 
2) 8/1/78 2 TONS TO COORS 
COMMAND s==S====) F 


DATA TO BE FOUND ======) BARLEY 


((BARLEY)) DATA NOT FOUND 


1) 7/7/78 HAIL DAMAGE 
2) 8/1/78 2 TONS TO COORS 
COMMAND ========) T 


1)+ SMITH 

2)+ JONES 

3)+ CLARK 

COMMAND SsfS=s====) R 
FARMS 

1)+ SMITH 

2)+ JONES 

3)+ CLARK 

COMMAND =—=——=————) S3 


CLARK **SELECTED** 


1)+ SMITH 
2)+ JONES 
3)+ CLARK 
COMMAND ========) If 


CLARK **INSERTED** 


1)+ CLARK 
2)+ SMITH 
3)+ JONES 
COMMAND ========) Fl 


((TRU)) DATA FOUND 


EQUIPMENT 
TRUCKS 


Ce ee ee ee mee eee ee em ee ee ee ee ee ee ee 


1) 77 FORD 
2) 76 DODGE 


76 DODGE **SELECTED** 


EQUIPMENT 
TRUCKS 


i) 77 FORD 
2) 76 DODGE 


76 DODGE **DELETED** 


TRUCKS 


s FARMS 
SMITH 
ANIMALS 
PIGS 
SHEEP 
COWS 
BOSSY 
MOLLY 
HECTOR 
HORSES 
CROPS 
CORN 
WHEAT 
SOYBEANS 
JONES 
ANIMALS 
DUCKS 
200 IN NORTH SHED 
50 IN SOUTH SHED 
CHICKENS 
GEESE 
EQUIPMENT 


COMMAND =======-=) 


STORAGE REQUIREMENTS 


‘es 
IDB as distributed has the following requirements ; 
Program Text 337 3* 
Symbols 1356 (50 Data Items) 
For Loops 24 
Subroutine Calls 8 
Strings 615 (Sample Data Base -- 49 Items) 
5976 
* Program text may be reduced by deleteing the following statements ; 
STATEMENT BYTES FUNCTION 
1-5 5/7 Author name and address 
1510-1690 372 "HELP" Command 
2005-2720 856 "FIND" & "OUTLINE" Commands 
| 


OTHER APPLICATIONS 


1.) Structured Design (Including Warnier-Orr Diagrams*) : 


PAYROLL PROGRAM 
COMPUTE STATE TAX SUBROUTINE 
IF STATE = "OHIO" 


1)+ THEN 
2)+ ELSE 
COMMAND-------- ) 


*See "Structured Programming with Warnier-Orr Diagrams" by D.A. Higgins 
in the December 1977 BYTE Magazine. 


2.) Planning 


1978 


1)+ GOALS 

2)+ OBJECTIVES 

3)+ CRITICAL PROBLEMS 
4)+ FINANCIAL REPORT 
5)+ CURRENT PROJECTS 
COMMAND-------- ) 


3.) Family Tree 


DOE FAMILY 
JOHN DOE 9/5/1942 


) MOTHER: MARY SUE (SMITH) 5/20/1920 
) FATHER: BILL DOE 3/14/1918 

.) WIFE: MARY JO (BROWN) 4/17/1944 
)+ CHILDREN 

)+ BIRTHPLACE 


4.) Ham Radio Directory 


HAM DIRECTORY 
USA 
K8XXXXXX 


1.) NAME: BILL JOHNSON 
2.)+ ADDRESS 

3.) WIFE: BETTY 

4.)+ CHILDREN 

5. )+ BASE: HEATHKIT 
6.)+ MOBILE: HEATHKIT 
7.)+ LOG 


SUBROUTINES 


400 "ADD"/"CHANGE" COMMAND 


420 ADD FUNCTION FOR INSERT COMMAND 


1050 "SELECT" COMMAND 
1200 "INSERT" COMMAND 
1300 "DELETE" COMMAND 
1500 "HELP" COMMAND 


1700 VALIDATE INSERT PATH 

2000 "FIND" COMMAND 

2400 HIERARCHY SEARCH/DISPLAY OUTLINE 
7000 DISPLAY DATA 

8000 FIND EMPTY SLOT IN ARRAY 

8100 COMMAND INPUT 

8500 "LOWER" COMMAND 

8600 "HIGHER" COMMAND 

8700 PRINT PATH 


8800 "TOP" COMMAND 


ROUTINES YOU MAY WANT TO MODIFY 


STATMENT # DESCRIPTION 
15=76 FOR HARDCOPY CONSOLE SET BS = CHRS$(10) 
8280 FOR HARDCOPY CONSOLE GOSUB 7000 CAUSES A REDISPLAY 


AFTER EACH COMMAND. YOU MAY WANT TO REMOVE IT. 


120 DATA BASE SIZE A9 CONTROLS THE MAXIMUM NUMBER 
OF DATA ITEMS THAT THE DATA BASE CAN CONTAIN. 
DEFAULT IS 55 FOR A 16K SYSTEM. ADD ABOUT 20 OR 30 
FOR EACH ADDITIONAL 1K OVER THE 16K BASE. 


105 DATA BASE LEVELS L9 CONTROLS THE MAXIMUM NUMBER 
OF LEVELS THE DATA BASE CAN CONTAIN. 
1468 PAUSE BETWEEN MULTIPLE DELETES DEFAULT PAUSE 800. 
1465 DISABLE MULTIPLE DELETE CHANGE TO: GOTO 1499 
1510-1690 ADD ADDITIONAL "HELP" INFORMATION 
2250 & 2270 CLOCK CONTROL CLOCK IS STOPPED TO HELP PERFORMANCE 
OF "FIND" COMMAND. 
2521 "OUTLINE" INDENTATION INDENTATION IS CONTROLLED 
BY THE TAB(L5*2). CHANGE THE "2" TO THE INDENTATION 


AMOUNT DESIRED. 


2525 BELL DURING "FIND" DELETE STATEMENT IF THE BELL 
IS NOT DESIRED. 


7035 PRINT LINE PAUSE ON LARGE DISPLAY IF MORE THAN 
11 LINES ARE DISPLAYED A PAUSE IS ISSUED BETWEEN 
PRINT LINES. 


A(A9,3) 
A$ (A9) 
A9 

BS 

c$ 


VARIABLES 


ARRAY OF DATA BASE POINTERS 

ARRAY OF DATA BASE DATA 

DIM SIZE OF A() AND AS$() 

STRING OF NEW LINE CHARACTERS USED TO CLEAR SCREEN 
ALPHA CHARACTER OF COMMAND 

SELECTED ITEM'S DISPLACEMENT IN ARRAY 

LAST COMMAND ENTERED 

DATA FOR ADD OR CHANGE 

EQUATE FOR DAUGHTER POINTER 

CURRENT LEVEL WITHIN HIERARCHY 

CURRENT PATH WITHIN HIERARCHY 

MAXIMUM NUMBER OF LEVELS ALLOWED 

MOTHER DATA ITEM FOR CURRENT POSITION 

EQUATE FOR MOTHER POINTER 

ARRAY INDEX NUMBER RETURNED FROM "FIND SLOT" 
NEXT SLOT "FIND SLOT" WILL CHECK FOR ASSIGNMENT 
NUMERIC PORTION OF COMMAND 

STRING DATA TO BE FOUND ON "FIND" 

EQUATE FOR SISTER POINTER 

ITEM PRECEEDING SELECTED ITEM 

NUMBER OF ITEMS TO DELETE ON MULTIPLE DELETE 
ITEM NUMBER FOR MULTIPLE DELETE 


INTERNAL S U 


HEKEKERERHREE 
% % 
* FARMS _* 
* + 


KE HEEKRHEEH 


HEEERHEH HEH i. HRERKTREREREE 


CSM a ES 
* ANIMALS *————>* CROPS _* 
Ml DL Sl 
ACL) = 0, 2, 0 AS(1) = “FARMS” 
A(2) = 1, 5, 3 a$(2) = “SMITH” 
A(3) = 1, 16, 4 AS(3) = “JONES” 
ACH) = 1, 29, 0 AS(4) = “CLARK” 
A(S) = 2, 7, 6 $(5) = “ANIMALS” 
A(6) = 2, 14, 0 AS(6) = “CROPS” 
A(7) = 5, 0, 8 AS(7) = “PIGS” 
A(8) = 5, 0, 9  AS(8) = “SHEEP” 
A(Q) = 5, 11, 10 A$(9) = “COWS” 


~ 
a" 


Ml 1S THE DATA ITEM’S MOTHER, 
Dl IS THE DATA ITEM'S DAUGHTER, 
Sl IS THE DATA ITEM’S SISTER, 


CHANGING THE SIZE OF AN EXISTING DATA BASE 


INPUT "ENTER NEW VALUE FOR A9. AQ = ";A8 
DIM ZS (MIN(A8,A9)), Z(MIN(A8,A9) ,3) 


FOR I= TO MIN(A8,A9) 
Z$(I) = AS$(I) 

AS (1) = we 

Z(I,M1l) = A(I,M1) 

P(t, DL) = Ati D1) 
Z{t,51) = ALT. SL) 

PRINT I 

NEXT I 

CLEAR AS ( 

CLEAR A( 

DIM AS$(A8), A(A8,3) 
FOR I = @ TO MIN(A8,A9) 
AS (I) Z$ (TI) 

7S (1) wi 

A(I,M1) 
AT, DL) 
A(I,S1) 
PRINT I 
NEXT I 
CLEAR ZS ( 
CLEAR Z( 
A9 = A8 
END 


Z(I,M1) 
Z(t ,DL) 
Z(I,S1) 


19 


FROGRAMN NAME: 


GGG1G PRINT 


HT IPRINT ‘PRINT >=PRIHT 


6628 PRINT 
S825 PRINT 
DED BASIC" 


@@@27" PRINT " #1lGleS.61" 

BHGIG PRINT = PRINT ” BY’ W. C. DENNISON” 

G6G48 PRINT u P4G4 STOME BLUFF CT." 

BEGSe PRINT Hy LOUISVILLE. KY. 4@291" 

GGG68 PRINT - C382 9491-s558" 

GQG7G FRINT :PRIHT : PRINT 

BGHSG PRINT " WITH THIS PROGRAM YOU NAY CUSTOM IT To BO SEVE 
RAL" 

G6@36 FRINT " DIFFERENT THINGS. SUCH AS =” 

@G168 GOSUB 16ee 

B@@11G@ PAUSE (Aaee) 

@G@126 PRIWT " VOU WILL BE ABLE TO CUSTOM BUILD THIS PROGRAM TO ‘oO 
Like ” 

@@13G PRINT " HEEDS. IT CAH BE USED FOR BUSINESS Gr FERSOHAL APPL 
ICATIONS. " 

G6@14G PRINT " THERE ARE NAN VARIABLES AVAILABLE TO ‘aus ” 

@@156 FRINT " AS = LAST HAME Al$ = FIRST WANE & II 
LAL” 

G@Gi6e PRINT ” Sf = STREET ADDRESS C$ = GITi" 

G@a17G PRINT " S1¢= STATE Cig = ZIP CODE" 

B@iSe@ PRINT " P$ = PHOME HUMBER BS = I[HFORMATION” 
6196 PRINT " D$*1 TO G2 G@PEH FOR EXPAMDED USE” 

GG20G PAUSE CSeee) 

GG61G PRINT PRINT «PRINT " WHAT IS YOUR PLEASURE 7? * 
GGE2G GOSUB Leee 

@G@638 PRINT = INPUT " SELECT BY HUMBER WHAT VOU WAHT DOWE ¥ "5 
46646 OH & GOTO SAGE. 4180, bho, B2Re. PAGS. TEES. LEER. PAGE, 4256.15 
Gee 

GieGe PRINT " 1] ARE A HENS 

81G1@ PRINT " Zo SU Hate 

G@ie26 FRIHT " = ~ FUT LISt GH Tore” 

GiGlie PRINT " 4 —- GET EXISTING List FROM TAPE” 
@iG4a PRINT ” a HD Tu ea i 

G@1836 FRINT " & ~ UPDATE Lisi” 

@1iG6@ PRINT " 7 ~FPRINT CISt BY CATEGORY” 


CREATE A PROGRAM — DEHHISON 


‘PRINT © FRINT = PRINT 
>PRIWT 
CREATE A CUSTOM PROGRAM" 

WRITTEM FOR BENMTOH HARECRE EXTEH 


SPRINT tPRINT SPRINT tPRIHT ¢ FRI 


SPRINT " 


La 
Co 


CHOKUS<KG> CESK OOKP OAT OCWOSAPA ROSES «6<USK0SKLe II 


i 


PROGRAM WANE: CREATE A PROGRAM DEMHISOM <= CONT ’D 


@1@7°@ PRINT °” S 
Biase PRINT " a 


PRIWT ALL TMPORSAT ION" 
LOCATE A PARTICULAR ITEM IH LIST 


B1G9@ PRINT " 1 
8116@ RETURN 
G2088 REM PROGRAM TO MARE A WHEW LIST 
@2601 IF Lise THEM PRINT ” TO AAKE A HEW PROGRAM WILL ERASE TH 
E ONE” 
@2@62 IF Li>+@ THEN LINE INPUT " HOW! IN MEMORY. ARE VOU SURE 7 CY 
OR HO "sht 
@2083 IF Lite THEN IF M#<e"y" GOTO 618 
2685 Li=6 
@26168 CLEAR 
2826 FRIHT ” FROGRAM TO MAKE A NEW LIST" 
B2638 PRINT 
82848 LINE INPUT " FILE NANE 7 "ses 
2836 PRINT 
» 62668 LINE INPUT " DO YOU WISH? LAST WANE 7 "SL 
62076 IF Le<o"y" GOTO 269e 
62675 GOSUB Zane 
62636 DIM AF¢L12 
6209 LINE INPUT " DO YOU WISH: FIRST HANE & INITIAL «Y OF N> 
7? “SF 
@216@ IF Feee""" GOTO 2126 
@2165 GOSUB 2586 
G@2118 DIM ALFeLIs 
62126 LIHE INPUT " DO VOL WISH! STREET ADDRESS ? "s54¢ 
@2ise@ IF S4eeoe"V" GOTO 2158 
@2135 GOSUE 258 
@214@ DIM SLi) 
2156 LINE INPUT ” OOo YOU WISH: CITY 7 "sCd4? 
@2166 IF Cé4$ee"¥" GOTO 2ise 
82165 GOSUB 228e 
62178 DIM C#CL1id 
@213@ LINE INPUT " DO VOU WISH! STATE 7 "sT4s 
B219G IF T4#.2"V" GOTO 2214 
2195 GOSUEB 23966 
B22O@ DIM SiseLia 
@221G LINE INPUT ” BO YOU WISH! ZIP CODE 7 "sede 
2220 IF 24$25°Y" GOTO 2e4e 
@2225 GOSUE She 


FROIWT MAILIHG LABELS” 


CHMUSKG> <SPKODKF RS TICMDCADSREXE? <UE<OOKL> TI 


PROGRAM NANE: CREATE A PROGRAM — DEMHISOH « COHT<“B 


82238 
G2246 
82258 
@2255 
2260 
G2278 
e22E0 
2205 
B22 98 
822868 
2385 
@2316 
2315 
B2328 
2338 
B2 346 
G2 358 
27268 
@237a 
B2 236 
1 Pai 
2406 
24148 
@2426 
62438 
B244a 
62456 
62456 
G2476 
arden 
G2498 
@2 568 
@2518 
2528 
az moe 
@2548 
5 Sade aS 
S568 
pac 
2588 
raion 


DIM CLStL19 

LINE INPUT * DO YOU WISH! PHONE HUMBER 2 "SP4$ 

IF P4$<2"¥" GOTO 2278 

GOSUE 2eHe 

DIM P#<L1> 

LIHE IHPUT " DC YOU WISH! IHFORMATION ? "sB4 

IF B4eeo"¥" GOTO 2366 

GOSUER 2388 

DIM BEeLi> 

LINE INPUT °~ DO VOU WISH: NORE CATEGORIES Y "shds 
GOSUBR 2386 

IF M422") " GOTC Zee 

PRINT =<PRINT ” WHEN YOU ARE THRU TYPE “EMD”. 

LIME INPUT " CATEGORY #1 TO BE TITLED ? "ibs 
IF D#="EHD" GOTO 3eee 

GOSUB S388 

DIM D#<L1i> 

LIME IHMFUT ” CATEGORY #2 TO BE TITLED 7 "sD12 
IF DiF="EHD" GOTO 2ene 

GOSUB 2h 

DIM DIEeLis 

LIME INPUT " CATEGORY #3 TQ BE TITLED 7 "sD2s 
IF D2S="END" GOTO 38ae 

GOSUB 2S8e 

DIM D2ECLI> 

LIHE INPUT " CATEGORY #4 TO BE TITLED ¥ "SDS 
IF PS$="EHD" GOTO Feeae 

DIM BDAELL1> 

LINE INPUT * CATEGORY’ #5 TO BE TITLED ¥ "sb43 
IF P4F="END" GOTO Shee 

DIM D4#cL 19 

CINE INPUT * CATEGORY #6 TO BE TITLED ? "sDSe 
IF Dis="END" GOTO 3868 

DIM DSSeLio 

LIME IMPUT " CATEGORY #7° TO BE TITLED 7 "sbed 
IF DES="EHD" GOTO 2eee 

DIM Det<Lia 

LIHE IHPUT ” CATEGORY #5 To BE TITLED 7 "sD7 
IF DPS="EHD" GOTO 2ee8 

DIM DFS<Li> 

LIne INPUT ° CATEGORY #9 Ta BE TITLED 7 "sbes 


PROGRAM WANE: CREATE A PROGRAM -— DEWHISOM < COMT*D 


82592 IF DS$="END" GOTO Teer 
2718 DIM DSteLid 
62726 LINE INPUT ” CATEGORY #16 TO BE TITLED 7 "sD9$ 
B27°3@ IF D9$="END" GOT Tea 
B2746 DIM HSFELid 
B2F58 GOTO Seen 
@Z30@ IF Li=@ GOTO 2956 
@2316 RETURN 
2958 INPUT " HOW MANY IN THE LIST «1@@.ETG.> ? “sLd 
B2368 RETURN 
GB2986 DE="EMD"IDLS="END"  D2$="END" I DAP="EMD" ' D4#="END" SO Se=" END” 
29396 DES="END" SDP S="EMHD" IS DS$="EMD" PE DOF="EMD" Se C2é= "EMD" 
2993 C2¢="EHD" 
82995 RETURH 
G2GG6 REM MARE HEW LIST 
BIG1G Uae 
3826 PRINT " VOUR PROGRAM WILL CONTAIM THE FOLLOWIHG VARIABLES 


B3825 GOSUB 4668 

2o88 PRIHT " YOUR FROGRAMN HAS "SWa" VARIABLES. EACH OWE CAN” 
@3216 PRIHT " CAH CONTAIN "SLis”" ITEMS. EACH CATEGORY WILL BE” 
83326 FRINT " PRESENTED BY PROMPTS AND VOU ARE Ta FILL IW THE" 
G@S333@ PRIHT " THFORMATION. WHEN VOU ARE THROUGH ENTER - EHD." 


@3335 Hi=i 

@3338 H2=N1 

@334G FOR I=H2 TO LitNs=Ne+1 

QS345 PRINT ¢PRINT 

@2350 IF L<2"v" GOTO Zara 

@356eG LINE INPUT ” LAST HAME: "saeeT> 
@3365 IF A$(T9="END" GOTO 39ee 

@337G IF FEOE"Y" GOTO 3398 

GS38G LINE INPUT ” FIRST MAME & INITIAL: "sAis<1> 
@S385 IF ALSCIO="END" GoTo soa0 

@339G IF S4$23"¥" GOTO 3410 

G@346G LINE INPUT ” STREET ADDRESS: "sS#¢19 
@24G5 IF S#CI9="END" GOTO s3a0 

341g IF C4#<>"¥" GOTO 3430 

G@E42G@ LINE INPUT " CITv: "ECCT 

62425 1F CECTIS="END" GoTo 3900 

G34s0 IF T4éoo""" GoTa 450 

a344G LIME INPUT * STATE! "sS1#¢1 


“HE<U> 


PROGRAM HAMNE: 


B3445 
824548 
S468 
G2465 
G347a 
G346 
@3485 
GS49H 
BS508 
@S505 
@S3514 
@3525 
BS530 
Bs546 


3555 


82568 
GS SFG 
BS2565 
BS598 
2618 
3615 
BI626 
@2638 
AS635 
626448 
G32654 
3675 
BS638 
62768 
63785 
83718 
G27 38 
@37°35 
Garde 
@3r ber Si) 
A265 
B27 7 
axroa 
G@3735 
1S a 
2008 


“G> 


IF 
IF 


LINE THPUT 7 


IF 
IF 


LINE THPLIT . 


IF 
ig 


LINE INPUT " 


S1$¢T)="EHD" GOTO 3388 
2sfeo"¥" GOTTA 3476 


Cis¢ To="END" 
Pat< Stee et Gata 


GOTO SSR 
3438 


PEC To="END" GOTO 3968 
B4$eo""" GOTTA 35ia 


Bf¢T2="EHD" GOTO 
M4e22"9" GOTO Sate 
DE="ENHD"GOTO S55 
D$<>" "THEM PRINT " 
DEC TIS"EMD" GOTO Soe 
Dis="ENP GOTO Sues 
Dig<>" “THEM PRIHT ” 
b1$¢19="END" GOTO 339ee 
DZE="EMD" GOTO Seis 
D23¢>" “THEN PRINT " 
DZ2$0T.="EHD" GOTO 3388 
D2S="EMD"GOTO 3625 
DSS< >" “THEH PRINT * 
DSE0TI="END" GOTO S986 
D4$="EHD" GOTO 3675 


S988 


D4¢<3" "THEH PRIHT " 
D4$0T2="END" GOTO 2988 
DSS="EHD" GOTO 3°85 


DS$<e" "THEM PRIHT ” 
DISC IO="EMD" GOTO 23ee 
D6EF="END"GOTA SF35 
D6tc 2" "THEN PRINT ” 
DEBS{T9="ENHD" GOTO S386 
DPS="EMD" GOTO SPE 
Drsio>" “THEN PRIMT ” 
pr$¢13="END" GOTa 
DEE="EMD"GOTO 3795 
Dee<.>" "THEN PRINT " 


SSG 


DSF TO="EHD" GOTO Soe 
DOS="EHD" GOTO Sere 


DSEQT9="EMHD" GOTO 3368 
D9F<>" "THEM PRIHT " 


CREATE A PROGRAM - DEMWISOH < 


eIF COPE: 


FHOHE HUMBER: 


LHFORMAT IOH: 


USSO Ss Ft 


CONT’D > 


wie iee 13 


weber rT 


"SBECT? 


"SO#stLINE INPUT "8 "sDecT> 


"SOLEs°LIHE IHPUT "SF "sDleeT> 


"SOS43°LIHE INPUT "i"sD2$eT> 


"SDSEE°LIHE INPUT "i "sDbSec.3 


"SD4$SELIHE IMPUT "i "sD4ecTo 


"SDUS3tLINE INPUT "s"sD5$¢1) 


SD6$s32°LINE INPUT "i" sped. 


SDP4s2LINE IHPUT "i"sDPreclo 


"SDSES°LIHE INPUT "2 "sDeaer> 


DS¢stLIME INPUT "2" sD9$<T) 


aHOKUP<KGS> SDA OSC REA TSIWt> <RECE> AUK ORL> TT 


PROGRAM HAME: CREATE A PROGRAM ~- DEMMISOH < CONT“D : 


BI338 IF C2EC3"EMD" GOTO Sere 
oS48 HERT I 
3968 Hi=H1i-1 
B2961 Hi=Ni~-iiLIHE INPUT ” ARE VOU THRU EMHTERIHG DATA «CY OR No 
? "3G 
63916 IF Ge<o"¥" GOTO 3336 
3928 IF G$="V" GOTO 616 
G@41G8 REM SORT PROGRAM 
@411& PRINT " VOU WILL BE ABLE TO SCRT YOUR PROGRAM BY THE FO 
LLOWIHG:" 
B4126 GOSUB 64h8e 
G413@ LIME INPUT ” SORT THIS PROGRAM BY — "sGt 
@41i45 GOSUB 64588 
G4147 CLEAR HSC DIM HEc1s9 
B415G WEL LOSAF IASC SISAL EAPC SHEE AE 4 KCHE EC DIS SL ES ECBO SCL Et aS 
C7 I=P HF 
B4166 HECSIKBPI MS GISDEOKECLBI=D LEI SSC LL O=DSE i ke C lL 29 =DSsi asl 139=0 
4Fi KS 149=D5 ie 
G417A BELLS =DeEt SCL BSP SIRE LP OSD REC Loo S=D oe 
84138 FOR I=1 Ta 20 
64196 IF G$=e$¢19 GOTO 4218 
G4208 HEXT I 
GH1l14 PRINT ” VOU HAVE CHOSEH TO SORT THIS FROGRAM BY "SHee 


4226 CLEAR HEC I DIM HECMI+HL 

@4225 FOR T=1 TO Hi 

4236 IF ts L9=GETHEH He 1o=A#e TD 
4246 IF #S¢29=GETHEN HFC To=AL SCT) 
@4258 IF se$C59= =GETHEHM H#¢To=S#4 79 
4260 IF s#049=GSTHEH Sia ei ae 
B427G IF MEO J=GETHEM HFC T9=S1407T> 
B4286 IF #H#082=GETHEH H$CIO=C1#CT) 
4298 IF BS 0 Po=G$THEH HF. Te=P ECTS 
G43G0 IF HECSo=GETHEN HEC TO=BEC TD 
43516 IF eEC99=GSTHEM HF¢To=D$e 15 
B4326@ IF SPC 1G9=GETHEH HEC TS=DLee 1d 
B4336 IF HEC1L19=GETHEH HF. Ta=paeels 
G43498 IF 8$0129=GFTHEH HE. To=DSe¢1> 
a4356 IF a6 LSI= GSTHEN H$ole=b4eeT) 
O4366 IF HECL49=GETHEM HFC To =D od. 12 
O437°G IF HE0L52=GETHEN HFiLo=bege ls 


<H>CUSKG> <“SPKOSKF OAT OSUPK AMR OME? 86K OS 


PROGRAM WANE: CREATE A PROGRAM —- DEMHISOH < COHT“D > 


@438G IF X$C16)=GETHEN HSC II=DTHC1> 

@429G IF MCL? J=G$THEN H#C1I=DEEC1) 

G440G IF M$C1S)=G$THEN H#C19=D94¢1) 

@441G NEXT I 

84426 GOTO saae 

@447G IF L#¢>"N" THEN TS=AS¢ 12 fAS¢ 12S ACL? PASCLO=TS 

G449G IF FH o"N"THEN TE=ALS¢ I EALSCTI=ALECLITALSCL OATS 
@449G IF S4$<>"N"THEN T$=S8¢19:58¢12=S46L 9: S$(LI=T4 

G450G IF C4$<>"N"THEN TH=CSC 11 CHCT2=CHCL9ICHECLI=TS 

@451G IF T4$<>"N"THEN TS=S18¢ 1925190 19=S1S4L9 SL SCL =TS 
G4526 IF Z4$<>"N"THEM TS=CLSC 12 E CLEC 1D=CISCLOICIF(LIATS 
@453@ IF P4$<>"N"THEN TS=PSC19'PS¢19=PS(LIIPS(LO=TS 

G454@ IF B4$<>"N"THEN TH=BS¢ 19: BSC12=BS(LIIBSCLI=TS 

@455@ IF M4$="N" THEN GOTO 466G 

@456@ IF D$<>"END" THEN T#=DS(19tDS<12=D#<L9'DSKL=T$ 
G457G IF D1$<>"EHD"THEN T$=D1$¢19!D1$¢ 19=DIFCL:D1S<LI=TS 
@458G IF D2$<>"END"THEN T$=D2$¢19:D2$C12=D2$(L9:DZ${LI=T# 
@459@ IF D3$<>"END" THEN T$=D3$¢ 19: D3$¢1)=D3$<L 9: DSScLI=TS 
G4660 IF D4$¢>"END"THEN T#=D44¢ 1): D4e¢1I=D4g(L i D4$cL=TS 
@4610 IF DS$<>"END"THEN T#=D54¢19:D5$¢19=D5$(L 9: DSS<LI=TF 
O462G IF D6E<>"END" THEN T#=DSECTIIDESCTI=DESCL I: DESCLI=TS 
@463@ IF D7#<>"END" THEM TS=D7PHC 13: D PSC 1 =DPECLOEDFECL IETS 
@464@ IF DS$<>"END" THEM TS=DSHC 19: DS$C 1 2=DSECL It DSECLI=TS 
G465@ IF D9$<>"END" THEM TS=D9S( 19: DS#¢ 12=DIF(L II DSECLI=TS 
G466G RETURN 

G498G GOSUE 4476 

@5@G@ REM PROGRAM TC UPDATE LIST 

@5G1@ PRINT :LINE INPUT " WHAT DO VOU WISH TO CHANGE ? "sCZ$ 
@5a20 I1$=C2$ 

G5G3G GOSUB 14926 

a5 4G PRINT " CHANGE THE FOLLOWING OR RETYPE THE INFORMATION . 
@5@5G Ni=N2tPRINT 

G5a6eG H2=1:G0TC 3346 

@5G7G PRINT tLINE INPUT " DO YOU WISH TC CHANGE MORE <Y GR ND? ? 
"Mas 

G5G75 GOSUB 2993 

a5@eG IF M4$<>"N" GOTO Sai 

e503 GOTO 616 

G@6G0G REM PROGRAM TO PUT LIST ON TAPE 

@6G1G PRINT tPRINT #PRINT !PRINT 


SHe<U> 


£G> ASPOSCP RC ITSCW ASCE CES 6 SNEKORLS OTT 


PROGRAM WANE: CREATE A PROGRAM —- DEHHISCM < CONT? > 


Be ee 
1S ten RT 
GB6G4e 
S665 
gear G 


Dew 
a 


BeS45 
S655 
6568 
Bears 
G6 286 
GF eae 
OF Big 
GP aAzZe 
BP ease 
a7 a4e 
GY ase 
BY 938 
BEGGE 
HSAs 

BSb48 
SSeS 
HSG6e 
ASGGS 
BSe7e 
BSese 
SSa3e 
GS 148 
BS116 
GS128 
Ba136 
S146 
GS156 
aise 
BS1re 
62126 


PRIWT " TO PUT LIST GH TAPE, SET UF CASSETTE RECORDER™ 
PRIHT " TO ACCEPT INFORMATION. WHEN READY’ HIT SPACE BAR. 


PALISE 

PRINT " NAME OF FILE TO BE STORED "s24 
GOSUB 651 G6 

STOP 

GOTO 61a 

REM PROGRAM TO GET FILE FROM TAPE 


PRINT " 
READY TAPE WITH FILE OH IT ITH RECORDER. " 
PRIHT tPRIHT PRESS SPACE BAR WHEN READY" 


CLEAR 2? 

LINE INPUT ” FILE WAME WAHTED 7 "set 

GOSUE B58G8 

STOP 

GOTO 618 

REM ADD TO LIST 

PRINT " YOU HAVE SELECTED TO ADD TO YOUR LIST. " 
PRIHT " JUST ANSWER THE PROMPTS AND TYPE “ENHD’" 
PRIHT " WHEM VOU ARE THRU,” 

I=H1 

GOTO 3348 


M=LTHT ih 2> 

IF M=@ THEH 3186 

M=h— 1 

J=1°K=H—-M 

I=] 

L=I+h 

IF HFC TSS HFEL GOTO Sise 
GOSUE 447e 

T=I~-M 

IF I<1 THEN 8156 

GOTO Seo 

J=JI+1 

IF J3E THEM S@6ée 

GOTO See 

PRIAT * SORT CeMPLE TE fl" 


& | 


SHOCUS<KG> <SPKOR PRCT OCUOR ASKER SSES 6<<USKOPKL SS 6 6UOTT 


PROGRAM MAME: CREATE A PROGRAM -— DENMHISOH < COHT“D > 


@S19e8 
G8266 
BIH8e 
836516 
BIB26 
GI266 
@9218 
89278 
G92368 
B32468 
1Geee 


1Be4e 
1G@@i6 
1me6e 
16a" 
16ers 
Leese 
1eess 
LHeage 
18832 
1Giee 
1@116 
1ei2e 
1G@i26 
1@ide 
1@il se 
1@is6e 
1B1re@ 
16136 
1G198 
16266 
1@216 
1G@228 
L@238 


Meant atin “met Fa! 


16246 


GOSUE Stee 

GOTO eis 

REM PRIHT PROGRAM 
FOR I=1 TO H2 

GOSUB SiGG8 

PRINT ©PRIHT tHEXNT I 


PRIHT " FRINT GUT OF ALL INFORMATION IS COMPLETE. ”* 
Rita ~ TO CONTINUE PRESS SPACE BAR. ” 

PAUSE 

GOTO 61a 


PRINT :<PRINT © REM PROGRAM TO PRINT BY CATEGORY’ 
CLEAR ME i CLEAR ME0°DIMN MEc1e5 


B PRIWT * VOU MAY SELECT FROM THE FOLLOWING ©" 


GOSUB &4508 

GOSUE é4686 

PRIHT <FRIHT ” CHOOSE FROM THE LIST WHAT ‘VOU WOULD LIKE T 
H=G 


PRINT * HAVE PRINTED. ” 

PRINT =FRINT " ENTER “EMD? WHEN VOU ARE THRU .” 
H=H+ 1 

T=H 

PRINT <LINE INPUT ° PRINT BY - "sMPelo 

IF HW=18 GOTO 14188 

TF MECHO< 2° EHD" GOTO leere 

H=H—-1 

FOR B=1 TO He 

FOR J=1 TO H 

IF M2 IS=ASTHEH PRINT TABCLG SAS CBE. ONG 

IF MX IS=ALETHEM FPRIWT ALECE: 

IF M#eTa=SETHEN PRINT TAR iGssSécbo 

IF M#eTo=CETHEN PRIWT TABS Leo sCEe bog. 5 

IF M$. TS=S1¢THEH PRIWT Sitebos" ae 

IF M#.To=CLFTHEH PRINT Cis“ 

IF M#cIo=P£THEM PRINT i PRINT TABCLSosPEe"— "SPECRD 
IF M#XIS=BETHEH PRINT @PRIHT TABS 53 ee SBE CED 
IF MSC 1S=DETHEN PRINT D$s"~ "SDECBo 
IF M#eTo=BiFTHEH FRINT sel "SDLS¢B 
IF MP2 TI9=DSETHEN PRINT Doda" "Shee 
IF M#¢C1S=DSSTHEN PRINT DSSs"- “sDsse 
IF M#¢ 19=D4$THEW PRINT Dads — “Ebad ee ES 


X 
ey 


nin oo 0 


PROGRAM NAME: CREATE A 


16256 
16266 
1a27e 
1azee 
182968 
182668 
183 pa 
183 
eeeaa 
1Gé1e 
1G62e 
1Ge3e 
i46ea 
14eas 
1418 
14@268 
14836 
i484 
i4ecna 
14668 
14878 
i4fese 
i4a9e 
14166 
14118 
i412 
141238 
i4ide 
14156 
i4166 
1417 
14136 
i42e8 
14216 
14228 
14238 
i4246 
14208 
14266 
$ 
14276 


Mec To= 
Mée T= 


Mec To= 


PRINT 
HEAT B 


Mé< To=D? 


M$" 1 2=D94THEH 
*HEXT I 


KFT 


DSETHEH 
DEETHEH 
$THEH 


DSéTHEH 


FOR I=1 To H 


PRINT " 
PRINT ” 
PAUSE 
GOTO ei 
REM 
PRIHT 


PRINT QUT I5 


PRIHT 
PRINT 
PRINT 
PRIHT 
PRINT 


SPACE BAR. 


FOR I=1 To N2 


F< > 
S4$< > 
C4a$¢ 
T4$¢2 
Z4$¢ 
Page> 
E4¢< > 


D#< 
Diss 
D2#< 
Ds 


DS $<> 
Dass 
LPs. 
os Lee 
CSE< 
HET I 
RETUREH 
REM 
FR DHT 


Lee o"H" 
MEY n 


M4g="H" 


THEM i 
THEM 
"A" THEM 
>"H" THEM 
>" HY THEM 
>"H" THEM 
>"H" THEM 
"HH" THEM 
GOTO 


"EMD" THEM 
"EMD" THEH 
"EMD" THEM 
> "EMD" THEM 
7 "EMD" THEH 
"EMD" THEM 


> "EMD" THEM 


GOSUB 14e26 


WHAT DCO YOu 


T$=AE°TO THEM GOTO 
T$=A1LF0 To THEM GOTO 1 


I$=SF01T9THEH GOTO 14 


FRCGRAMN - DEWHISCH < 


WISH TO 


(eae) 


LOCATE A PARTICULAR ITEM I LIST 
=PRINT 
LINE INPUT ™ 


FIMD 


14 


Ft 
ae 
S 
Sel 


Tf=CEC1T9THEN GOTO 145 


I f= 


SEARCH ROUTINE 
‘PRINT ¢LIHE IHPUT " 


SLECTSTHEN GOTO 
T#=CiFe To THEM GOTO 
T$=P$. 19 THEM GOTO 

T$=BE* T9THEN GOTO 14 
L4226 
S"END" THEN IF 
> "EMD" THEM 
>"EMD" THEM 
$< > 
Data > 


T#=Di$¢ 1 360TO 
[t=O2#o T2G0To 
T#=DPSEcT3GOTA 
TF=]=04¢ 0 19500TO 
T$=DS3 0 1960TO 
T#=DesCTAGOTO 
Té=O07 $0 [3607o 
T$=D83 0 1 5G07TO 
Teé=fbobe 1260 


fli 


14 
14 
145 


Tf=DECT9G0TO 14566 


i45e0 


Le See 
i4see 


TO i436 


WHAT DO ACU 


HTD 


COMPLETE. TO CONTINUE PRESS" 


“te 


sl 


ies 
Et 
tH 

a 


a ei & ce eS 
mi 


ae 
bet 9 5 
Bet 


pe 


WISH TO FIND 


oy 


SHOQUS<G> <SoCUS4F OCT OCW OKAOCRSAE> <U><KORKL> TT 


PROGRAM HAME: CREATE A PROGRAM — DEWHISON < COHTB 


i42s@ PRIAHT =PRINT I¢3s" WOT FOUHD IH LIST. " 

14296 PRINT :GOSUB S5eeG 

14368 PRIHT :GOSUB S2686 

I42i6 GOTO 61e 

1456G PRINT 123" FOUND AS THE #"2t-" IH THE LIST. " 
14516 PRINT ©<GOSUB Sonu 

14526 IF C2#<>"EHD" THEN RETURH 

14525 GOSUB 62886 

14546 GOTO 616 

iS86G REM PRINT MAILING LABEL PROGRAM 


15616 PRINT " THIS PROGRAM WILL PRIHT THE FOLLOWING: " 

isG@2e@ PRINT " FIRST HANE MIDDLE IMITIAL LAST WANE 
1SG@3@ PRINT " sIREE ADDRESS" 

15@4G@ PRINT " | Slates ZF Ope" 


iSG45 GOSUE 15588 
iSG5@ PRINT = PRIHT ” TO CHAHGE THIS GOTO “LIHES 15886 TO 13286" 


iSG@6G@ PRINT " IM THIS FROGRAM AHO CHANGE THE WARIABLES FOR TH 

Ee" 

1S@7G PRIHT ” OHES THAT VOU WANT |” 

1S@s@ PRINT ¢ PRINT ” READY LABELS IN PRIHTING DEVICE AND PRESS 
SPACE BAR" 

ise@9@ FRINT " WHEN READY.” 


i51@G@ PAUSE 

1511@ FRIHT " MAILIHG LABELS FoR" 

ISi2@ PRIHT " LIST "ses 

1513@ PRIAT ¢PRIWT :PRIHT = PRINT 

1514@ FOR I=1 To Hz 

IS15G@ PRIHT ALSc 1 sAEL I> 

15166 PRIHT Séclo 

Lai7G@ PRINT GCECIo9e". “sStectTas! sila Uinta alae 
1518@ PRIHT :PRIHT tPF RIT 

15266 NEXT I 


ISSGG IF L#2e""" THEM 15688 

S516 IF F#ee"y" THEM 1S5eee 

S526 IF S4éee""" THEM 1iéee 

1553@ IF cas< ony THEM 1S8ee 

15546 IF T4tee"¥" THEM iteee 

iséeee PRINT : PRINT : ALL THE ABOQWUE ITHFORMATION IS WOT AYAILABL 


E. ” 
iS*ee RETURH 


tm 
i 
ia) 


PROGRAM HAME: CREATE A PROGRAM - DEMHISGH < COHNT"D 


SUGGG REM PRINT ROUTINE 

osv@l@ IP Lé<e"H" THEN PRINT ASC ids 

Sw@2U IF F#<2"H" THEN PRINT "3 “sAlS¢T > 

S238 IF S4¢<2>"H" THEM PRIWT TABS So sS$e 12 

SoG4G IF C4$i5"H" THEN PRIHT TABS So see Toe. "Ss 
Sv8S6 IF T4$<2"H" THEN PRIWT Sisedo:" me 

SuG6@ IF S24¢<>"H" THEM PRINT Cileeto 

ovO7O IF Pa4$<i>"H" THEN PRIWT * PFHOHE # "sP$eT2 
SoGSG IF Bd4e--"N" THEH PRINT " TIHFORMATION: "sB$c1o 
SUI IF D#+ >" END” THEM FPRIWT " daa "SDSeT> 
SolGa IF Di¢ge>"END" THEM PRINT " sOLEs7S "SRDLSCLD 
soil IF bo$< 3" END" THEH FRIWT " CSOLe ss = Haat - 
Ssol26 IF D3$<>"END" THEM PRINT " TED SS eo RDS ? 
So1SG@ IF Dee "EMD" THEM PRIWT ” "sD4$a"—- " ae = 
So14@ IF DSF<>"EHD" THEM FRIWT " MsDags 7 = YSDare ts 
sv1lS@ IF D6s<>"END”" THEN PRIHT ” *sDeg 3" — "DEE" i? 
Sul6@ IF Dr $6 "EMD" THEM PRIHT ” "eDess2— "SDTECIO 
So1l?7@ IF DS$<>"END" THEN PRINT ” "SDSEs"—- "sDSEcT3 
S2186 IF DOF. >"EHD" THEN PRIWT " "sD9$s"- "ID9$ CT) 
2208 RETURH 


SGSE USU+L PRINT THB Se-LEHC Seo a50E 8 
2 PREIHT :<FPRIHT =«FRIHT " TO CONTINUE PRESS SPAC 
Bs PAUSE 

3 RETURH 


FEM GET VARIABLES SET UP IH CUSTOM PROGRAM 
GOSUB E4586 

IF Léee'¥" GOTO B4858 

WeU+diPRIHT TABS S8-LEH CAE oo sage 
IF Fie" y" GOTO Adare 

Wablltds PRINT TABS SE-LENC ALES oO SALEE YE” 
TF eer a MEE GOT Ci BAG oe 

Walid: PRINT TAB SS-LEHCSH#ES ogee ENE” 
IF C4eo2" 7" GOTO 64118 

B4166 Wail+ 1: PRINT TABS SE-LEHCC# 3 a pCe ea 
64116 IF T4+#eo2"¥" GOTO 64136 

B4126 WeHl+ds PRINT TABU SS-LENCSisoossigeue" 
64136 IF S4t¢2"Y" GOTO 64156 

64ida Weli+i: PRINT TREC SG-LEHSCLE oo sCLes 0a” 
64156 IF Pade y" GOTO 841i Fe 

B4$16e Wei+is PRINT TAES SS-LEHCPE> ERE pr” 
B4ira TF Basen" GoTo Be} |] ae 


Chih oh oh ok Oh oh oh oh 


BRR ERE 
pea 
RIAA RG oA a Ma 


roc eS Gee hm ee me 
Patni ae aSie 


Tr iy oy 


wer 


SH2CU><G> 


FROGRAM HARE: 


641280 
64196 
64200 
64210 
64226 
64230 
64246 
64258 
64768 
64270 
642780 
64790 
64300 
64316 
6432 
64330 
64246 
64356 
64360 
64270 
64386 
64296 
64406 
64506 
IT’ iti 
64516 
f Bi 
64526 
65060 
65016 
65026 
@9,13 
65asa 
65646 
65a5e 
65068 
65166 
65116 
@6.13 
S120 
65136 
65146 


£S>LORCE CT SUS CAPR ED 


CREATE A PROGRAM 


VY=U+15 PRINT 
IF M4¢ee"y" 
IF D¢="EHD" 
VEV+1IFRINT TABCSG-LEHCDSo osbeeue" 
IF DiS="END" GOTO 645ag 
VEU+LIPRINT TABS SG-LEH SDL Foo sDiga"s 
IF D2$="END" GOTO 64288 
VEW+1IPRIHT TAB SG-LEH(DS$5 9 sDeFs"8 
IF D3S="EHD” GOTO 64266 
WEU+1°PRINT TABS SG-LEMCDS# 2 oD Seat 
IF D4$="EMD" GOTO 64568 
VEN+1°PRINT TABCS@-LEH {Das oo sD4ga" 
IF DS$="END" GOTO B84sae8 
VSU+T°PRINT TABS S6-LEHO DS 32 
IF D6$="EHD" GOTO 64286 
VEW+1L°PRINT TABS S@-LEH ODEs oo sbege's 
IF DFS="EWD" GOTO 64588 
MEU+iSPRIHT TABS SG-LEHCDPeaasDPes"s 
IF DS$="EHD" GOTO 64508 
VEU+1° PRINT TABS SG-LEM CDS 23 eDog se": 
IF D9S="EHD" GOTO é45eg 
VEU+1°PRIHT TABS SG-LEMCDO# 3 2 DoEE 
RETURE 


TAB. 36-LEMCB$o 9sB¢ 575" 
GOTTA 6458e 
GOTA 64568 


2f>0 .: ella 
sDogs"s 


AS="LAST NAME" SALS="FIRST HAME £ THITIAL" © Sé="STREET"EC#="C 


S1$="STATE"tC1$="ZIF 


RETURH 
REM TAFE “GET” ROUTINE 


FPOKE S382.85° PORE S383. 78:POKE sae 

PORE S365, 71°PORE S26 E SSee 

PORE 8218.89 

PORE S311,6°° PORE S212. 79:PORE S313, 
PORE S381.13 

RETURH 

REM THRE “PUT” ROUTINE 

PORE 8382.88: F0KE S383.828 PORE 


PORE 
POKE Saei1.5 
FETURE 


JW eee Le 
CUS OSeLe 


- BPEHHISOH < 


CODE" tP$="PHONE NUMBER": B=" INFORMAT 1G 


[a bara pr By f 7 
SBE. Se T 


SAB PY .6FIPORE SSR8. PS8PORE Seo. ree F 


FROGRAMN HAME: I-Q ROUTINES — MASUDA 


i ym 
ti Gy mi 


GAGS 
BEGEE 
AGGES 
aaare 
BETS 
AGESE 
/2116 
BGe38 
e2aaG 
a2ae2 
ARE 
B2006 
areas 
BLAZE 
APaZE 
G2H24 
ABAPE 
G2H28 
B2a36 


G2ASz 


@ PRINT “S.0PEM FILE AS EXTEND 


GOSUE 65ee8 

PRINT "1.0PEN FILE AS OUTPUT 7. FUT STRING” 

PRINT “2.0PEN FILE 9S INPUT 3. WRITE DATA RECORD" 
9. GET HEX®T HUMBER” 
@. GET NEXT STRING" 

1. READ DATA RECORD" 


PRINT "4.CLOSE IHMFUT FILE 
PRINT "S.CLOSE QUTPUT FILE 
PRIHT "6,PUT HUMBER” 

PRINT 

INPUT "EMTER THE HUMBER OF THE FUNCTION OR -1 TO STOP "sc 
IF C=-1 THEN STOP 

OH C GOTO 2868. 2828, 2638, 2648, 2658, 2068. 267°R. 2698, 2698, 2188 


PRINT "INVALID CHOICE’: GOTO 16 

REM aeetcee OPEN FILE AS OUTPUT 

PRIHT "READY OUTPUT DRIVE AWD HIT CRETI TO COHMTINUE”: PAUSE 
LINE INPUT “ENTER OUTPUT LABEL "s''$ 

GOSUB 64186 

PRINT "DOWE" iGOoTO 16 

REM cease OPEN FILE AS ITHMPUT 

PRINT "READY INPUT DRIVJE AHD HIT CRETJ TO CONTINUE": PAUSE 
LIME INPUT "ENTER IMPUT LABEL "SxS 

GOSUB E4128 

GOTO 26835 

REM verte OPEN FILE AS EXTEMDED 

PRINT “READY IMFUT AMD OUTPUT DRIVES AND HIT CRETJ] TO CONTI 


HUEY? PAUSE 


B2834 
B2G36 
A263 
B2648 
B2G42 
e2h44 
B2846. 
B28538 
G2052 
a2854 
E2056 
G2668 
G2062 
B2664 
B2066 


LINE INPUT "EMTER INPUT FILE LABEL "ss 
GOSUB 64196 

GOTO 268s 

REM sickest CLOSE IHFUT FILE 

PRIHWT "IHPUT FILE IS WOW CLOSED” 

GOSUB 642356 

GOTTA 2688 

REM saceee CLOSE OUTPUT FILE 

PRIHT "GQUTPUT FILE IS HOW BEIHG CLOSED" 
GOSUB Ade4e 

GOTO 2aes 

REM seme PUT HUMBER 

IHPUT "EHMHTER A HUMBER OF -1 TO STOP "3s¥ 
IF ‘Y=-1 GOTO 2088 

GOSUB 64268 


SHYKUPKGS> <SPKOPKF OMT SAWASS ROSES §6SUECOSKLe 


PROGRAM HAME: I-0 ROUTINES ~- MASUDA =< COHT?D > 


A2666 
B2078 
@2072 
B2074 
B2076 
seelbs o 
2H8G 
a2ae7 
B2884 
G26 
B2898 
A2092 
B2aS4 
A2856 
62188 
62162 
2164 
G2 1H. 
62116 
@2Z11z 
@ziid 
62116 
1S a Sai 
GS8e05 
B81 
BSe@15 
GSG728 
BSe2s 
@SH38 
64868 
64685 
64616 
64615 
64826 
64625 
64636 
64846 
E4645 
64858 
B4655 
64664 


GOTO 2662 
REM aeetcet PUT STRIHG 


Gs 


LIHE INPUT "EHTER A STRING GR “END” TQ STOP “i$ 


IF VE="END" GOTO 2eeas 
GOSUE 642798 
GOTa 2a" 
REM ceeacee WRITE DATA RECORD 
PRINT "RECORD BEIHG WRITTEK" 
GOSUB 64216 
GOTO 268s 
REM terete GET HUMBER 
GOSUE 64268 
FRIWT "HUMBER RETRIEVED ="GH 
GOTO 2ee8c 
REM seetcee GET A STRIHG 
GOSUE 64398 
FPRIHT "STRIHG RETRIEVED ="si$ 
GOTO 2aas 
REM asedcmt: READ A REC 
PRIWT "READIHG RECORD" 
GOSUB ed44e 
GOTa 2665 
GOSUB BSGeG:4$="TEST-NSTE" = GOSUB B4128 
GOSUB 64446 
IF PEERS 2S6S09=2THEN FRINT "EMD OF FILE 
GOSUE 64390:FRIMT ESTAR Seo & 
GOSUB S439E°:FRIHT SES THB eS s 
GOSUB 64368: FRINT & 
GOTO Seas 
REM setae READ A RECORD 
PORE tees, we © PRRRE DFSS1 5) 
een" 8 us Ee BH 
FOR ere ae Ta ara 
LE=2E+CHREC PEER CLE 5: 
HEAT 2S 
FRETURH 
REM ssedcre WRITE A RECORD 
S3=LENCS$3 : FORE Soe8a3,.25 
FOR £28 =1 TO £9 
POKE 2E6S8S+S5.,.ASCCMIDEC SS. 28.133 
HEMT 26 


READ" IE STOP 


coca) 
Pier ot 


m 


<H><U>< 


PROGRAM WAME: Iv“G ROUTIMES — MASUDA =< CONT’ 


64115 
64126 
64125 
64138 
64135 
641448 
64145 
64156 
64155 
64168 
B4165 
6417 
B4175 
64156 
e4iss 
64196 
B4195 
B4268 
e4285 
64218 
B4212 
b42i5 
64228 
B4225 
ats Brae 5 
64231 
64232 
64235 
64248 
B24 
42742 
B4 245 
64245 


G> <S>COOCE MM TICWOSADSROCED 6 fUcope 


PORE 17998,.252 : POKE 17991.1 
e1S2218 2 PORE @193,112 

PCIKE Selexle * PORE S215,.113 

Ss=USR 0G) 

RETURH 

REM ceteetce OPEM FILE CUTPUT 

IF PEER CS86S19=@ GOTO 64115 

PRIHT 21%: STOP 

FORE 20651.1 ' FORE 26682.6 

at="/$° G05UER 64edas yoga 

RETURH 

REM seesset OREM FILE IHPUT 

IF PEERS 2S569@0=6 GOTO 64145 

PRINT 22%: STOP 

PORE 25856. 1 

GOSUB 64a 15) 

IF PEERS SS6S29=6 GOTO 64165 

PREIHT 23S! Sor 

wg=—15 TF 2f=84¢ THEH RETURH 

PRIWT 243524 

LIME THPUT "COMTIHUE * Veh "PMaE 

IF s@$="V¥" THEM RETURH 

STOP 

REM seeasct CREM FILE EXTEMDED 

HE=VEIGOSUB S4128 

GOSUE B418e8 

GOSUE B444e 

IF FEERS286860=2 GOTO 84225 

Voto SE 

GOSUE 64318 

GOTO 84265 

GOSUE ee 


hi 


PORE i, 
REP sherscska 
IF PEEK C2ee 
PRINT Mi#:5 
PUKE 286a2. 2 
ZH=EOEGOSUE S4ode 


RE TURK 

OSE GUTPUT ies 
ff9=1 GOTO 6424 
re ug 


So ee 


p 


2 GOTO 64235 


. ater 
g nt 


SHUSSG> <SSROSCE OKT SAWS A SCR OKES 6 6<URROSKLe 6D 
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64258 
64266 
64265 
64276 
64275 
64286 
64255 
64296 
64295 

64266 
64365 
64316 
64315 
64326 
643 2 
64238 
bB4 355 
64346 
64345 
64256 
64368 
64361 
64362 
64565 
64274 
64396 
B4396 
64391 
64392 
64295 
64486 
64465 
64416 
64415 


E4428 HS 


64425 
64436 
64444 
64445 
64450 


PORE 286801. G0:RETURH 

REM cette PUT A HUMBER 

VYSES=STRECY 

IF LEHCYS#$3+LEHOS¢o4+) f=255 GOTO B4288 
PRIHT 254: STOF 

YOE=V9E+CHREC2S9+ S$ 

RETURH 

REM settee PUT A STRING 

IF LEHSYS$o+LEHiY¥#54+1 4=255 GOTO 6435e5 
PRIHMT 2254: S7OF 

YO$=/SS4+CHRECSSItYE © RETURN 

REM sacttce WRITE A DATA RECORD 

IF LEMS YOPo+1f=255 GOTO 84325 

PRIWT 253: STOF 

VYO$=/S$+CHRE* 33 

IF FEERCSS6819=1 GOTO 64346 

PRIHT 264: STOF 

PORE 28622, 

2$=YSE: G05UB 64e4e 

YOE="" SRETURH 

REM dest: GET A HUMBER 

IF #®93=1 GOTO 64365 

PRIHT Mee le 

IF MIDECNSE. 89. LE=CHRECSS9 GOTO 64375 
PRIWT Pe! STOP 

SE=""EGOSUE 64416 

S=UALC AEE RETURH 

REM vetsetce GET A STREIHG 

IF HG>=1 GOTO 64395 

PRIHT 23d: STOP 

IF MIDEC NSE. RS. LS=CHREC SS GOTO 644a5 
PRIHT 2°¢:S7OF 

HEH" " GOSUE B44 18° RETURN 

REM teeter COLLECT A STRIWG 

MEH I+] 

MS$=NTDECHOE. Ho. 1D 

TF HEE=CHRECSE? OR REE=CHRE C292 OR RSE=CHEECS9 THEN RETURN 
MEE HEARED GOTO 844i 

REM ssesce READ A DATA RECORD 

IF PEERS SSEseo=1 GOTO Ss4451 

PRIHT x42: 57T0OF 


<HoCU><G> <S><O2KF OM TSMWPCADKROSE> <USK0><L> II 
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64451 IF PEER C2S68@><o2 GOTO 84455 

64452 PRIHT X4#: STOP 

64455 GOSUB 646a8 

64468 HoF=2F 

64465 IF 2£¢=26% THEN PORE 286sG.2 

64478 “9=1:RETURH 

S5666 REN +4tere MESSAGES AWD CONSTANTS 

65665 2£6$="1E0F-H8" 

65616 21$="** OUTPUT FILE ALREADY OPENED ++" 

65615 Z2$="*4 INPUT FILE ALREADY OPENED ++" 

65026 23¢="4++ HEADER LABEL HOT FOUND 4" 

65625 24$="*% LABEL ERROR — LABEL FOUND =" 

65636 Z253="44 MAXIMUM RECORD LENGTH EXCEEDED 4" 

65635 26$="%4 ATTEMPTED WRITE TO UNOPENED FILE 4" 

65640 Z7S="e4 TYPE CONFLICT EXISTS +" 

65645 H1f="%+ ATTEMPTING TO READ FROM AN UNOPENED FILE 4” 
65646 H2$="4e ATTEMPTING TO CLOSE A FILE THAT WAS HOT OPENED +" 
6504" “3s="%4 ATTEMPTING TO GET A HUMBER-STRIHG BEFORE A READ ++” 
65643 *4$="%" ATTEMPTING TO READ PAST EMD OF FILE #” 
65655 PORE 2656.68 : PORE 2o6c1,68 

BS86G RETURH 
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PROGRAM DESCRIPTION 


The purpose of this program is to demonstrate to the user one 
method of handling tape operations on the H8 computer. 


The program is actually broken up into three distinct sections. 
Each section will be covered in detail, 


PROGRAMMER: 


Richard Masuda 
950 Howe Avenue #23 
Sacramento CA 95825 
1-916-925-8185 


CONFIGURATION 
i Computer: H8 
Memory : 24K RAM 
1/0 Devices: H9 Terminal 
1 Input Tape Unit 
1 Output Tape Unit 
Language: Extended BASIC Version 10.92.91 
Utilities PAM-8 Tape Load-Dump Routines 
INSTALLATION 


The tape supplied has two copies each of Extended BASIC Version 
19.92.91 and a BASIC file "I/O Routines", 


. Load BASIC with the PAM-8 loader, 
Press the "GO" key, 

Type Load "I/0 Routines", 

Type Continue 

The program menu should be displayed, 


PwWNMrR 
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This program needs at least 260 words above BASIC to work correctly. 
The BASIC supplied has been configured with 20K of BASIC and the 
upper 4K for user workspace. 


MEMORY MAP 
DECIMAL SPLIT 
28680 169 91d Input File Status Byte 
28681 166 611 Output File Status Byte 
28682 169 G12 Record Type 
28683 16% 613 Record Length 
28684 160 914 Beginning of Data Block 
28949 161 914 End of Data Block 


Input Status Byte Closed,1l=Open,2=EOF Read 


Output Status Byte Closed, 1=Open 


Q 3 Q 
iT] 


Record Type = Header REC,1=Data REC,2=E0F 


SECTION I 


Lines 19-2116 represent the interactive section of the program. 

The user has a menu of tape and data functions displayed on the 
screen and he picks a function he wishes to perform, All functions 
will be executed the same way a batch program would work except 

any necessary information is prompted at the terminal, 


See the section on function descriptions for a detailed 
description of each option, 
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On the tape there is a file names "TEST-MSTR", This tape was created 
using the interactive section of the program. 


CREATING "TEST-MSTR" 


Function #1 Open File as Output 
Enter "TEST-MSTR" for a label (no quotes) 


Function #7 Put String 
Enter "THE VILLAGE" (RET) 
Enter "483-8148" (RET) 


Enter "END" 
Function #6 Put Number 
Enter "2681" 
Enter -1 
Function #8 Write Data Record 


Repeat 7, 6, 8 for as many records as you want, 


After you have entered all the information, you must close the output 
file 


Function #5 
A data tape has been created, 


Put the tape into the reader and open Input File (#2). 


Use Function #11 Read Data REC 
Use Function #10 Two Times (2 Strings) 
Use Function #9 Once (1 Number) 


Close the file when you are finished reviewing the contents, 


"TEST-MSTR" FILE CONTENTS 


A/N A/N N 
#1 The Village 483-8148 2681 
#2 Classic Cabinets 922-6929 1229 
#3 ~+Fort Sutter Hearing Aid Centers 966-0336 2724 
#4 ABC Company 462-8122 1874 
#5 The Electric Company 821-4211 1643 
#6 ~=Pacific Gas and Electric 926-8102 1401 


#7 EOF Record 


Filename = 


SECTION II 


This 
disp 
how 
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section will read the "TEST-MSTR" created on the tape and 
lay it on the terminal. The program is included to show 
a batch mode program might work. 


To Run 


5606 


5665 


5010 


5015 


5920 


5925 


5030 


Get to the command level 


Ready the tape with the tape at 125 according to the tape 
indicator. 


*GOTO 5000 
*Continue 


The program will print a listing of the tape similar to 
the listing at the end of Section I, 


TEST-MSTR LISTING PROGRAM 


4GOSUB 65999: X$="TEST-MSTR":GOSUB 64130 
Initialtzatton Tape Label Open Input File 


GOSUB 64446 
Read a Data Ree 


If PEEK(28680)=0 then print "END OF FILE":STOP 
Check for EOF 


GOSUB 64399 :PRINTX$;TAB(5Q) ; 
Get Name and Print It 


GOSUB 64399 :PRINTX$;TAB(65) ; 
Get Telephone Number and Print It 


GOSUB 64366 :PRINTX 


Get Number and Print 


GOTO 5005 
Repeat Unttl FOF Read 


*Must be performed before any tape operattons! | 
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SECTION III 


Lines 64000-65055 contain the actual routines involved in the 
tape I/0 operations, 


Each routine will be described. 
Name of Function 


Entry*=What does the programmer pass to the routine. 
Exit*=What does the programmer get from the routine, 
User Called:Does the user call this routine=(yes) 
Lines :BASIC Source Lines 
Entry Point to GOSUB Statement 
*Where the entry is marked PROGRAMMER IGNORES the user only 


has to call the routine, The program takes care of the entry 
and exit variables, 


Read A Record 


Entry 

Exit : Z$=RECORD READ 
User Called: wo 
Lines 64999-64930 


Write A Record 


Entry : Z$=RECORD TO WRITE 
User Called: wo 
Lines 64049-64996 


Open File Output 


Entry : Y$=HEADER TAPE LABEL 
Exit : 

User Called: YES 

Lines 64199-64125 
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Open File Input 


Entry : X$=HEADER TAPE LABEL 
EXIG 3 

User Called: YES 

Lines 64130-64185 


Open File Extended 


Entry : X$=INPUT AND OUTPUT TAPE LABEL 
EXT ts 

User Called: YES 

Lines: 64190-64225 


Close Input File 


Entry : 

Exit. ; 

User Called: YES 
Lines: 64236-64235 


Close Output File 


ENERY. 2 
EXILE % 
User called: YES 
Lines 64249-64250 


Put A Number 


Entry : Y=VALUE TO BE OUTPUT 
EXTt. 3 

User Called : YzS 

Lines: 64264-64285 


VI 


Filename 
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Put A String 


Entry : Y$=STRING TO BE OUTPUT 
Exit = 

User Called: YES 

Lines: 64299-64395 


Write A Data Record 


Get 


Entry : Y9$ PROGRAMMER IGNORES 
Exit : 

User Called: YES 

Lines: 64310-64350 


A Number 


Entry : 

Exit : X CONTAINS VALUE READ 
User Called: YES 

Lines: 64369-64389 


Get A String 


Entry : 

Exit : X$ CONTAINS STRING READ 
User Called: YES 

Lines: 64390-64405 


Collect A String 


Entry : X9$,X9 

Exit 2-48 

User Called: wo 
Lines : 64419%-6443¢ 


VII 
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Read A Data Record 


Entry : 

Exit : X9$ PROGRAMMER IGNORES 
User Called : 

Lines: 64446-64476 


COMMAND SUMMARY 


GOSUB Required Variables 
Open File Output 64100 Y$=LABEL 
Open File Input 64130 X$=LABEL 
Open File Extended 64194 X$=1/0 LABEL 
Close Input File 64230 
Close Output File 64246 
Put A Number 64260 Y=VALUE WRITTEN 
Put A String 6429 Y$=STRING WRITTEN 
Write A Data Record 64310 
Get A Number 64360 X=VALUE READ 
Get A String 64390 X$=STRING READ 


Read A Data Record 6444g 
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TAPE FUNCTION DESCRIPTIONS 


Open File As Output 


The tape output file must be opened before the program 
can write to tape. 


The routine expects a file label to be in Y$. For example, 
19 Y$="TEST-MSTR" would write the string "TEST-MSTR" 
as the header record for the file. The label may be up 
to 256 allowable characters long. 


If the file is already open upon entering the routine, an 
error results and the program aborts. 


Open File As Input 


The tape input file must be opened before the program can 
read from tape, 


The routine expects a file label to be in X$. For example, 
1) X$="TEST-MSTR" would tell the program that the first 
~ record on the tape should contain "TEST-MSTR", 


If the label provided by the user does not match the label 
on ae tape, the program will display a message (continue? 
Y/N). 


If the user puts a "Y", the program will ignore the label 
error and continue, Otherwise the program will abort, 


If the file is already open upon entering the routine, an 
error results and the program aborts. 


Open File As Extend 
This routine will 


1. Open the input file, 
| 2. Open the output file. 

3. Copy all of the records from the input file 
to the output file, 
NOT write the EOF record to the output file. 
Close the input file, 
Returns control to the user, 


anf 


Because of the sequential nature of tapes, this function allows 
the user to append data to the original file, 


The user is responsible for closing the output file, 


If a label error occurs, the label provided by the user will be 
used on the output file, 


Filename = I/0 Routines - Masuda X 


Close The Input File 


When the user invokes this function, a zero is stored in the 
input file status byte to indicate that no more data is 
available from the input tape. 


If the file is already closed, an error results and the program 
aborts. 


Close Output File 
When the output file is closed, three (3) things happen: 


1. A check is made to make sure the file was 
not already closed, If the file is already 
closed, an error occurs and the program aborts. 


2. A record containing the string "1EOF-H8" jis 
written to tape. 


3. The output file status byte is set to indicate 
that writes to the output file are no longer valid, 


¢ 


Put A Number and Put A String 


These routines allow the user to format data into the output 
record, In both cases, a check is made to make sure that a 
255 character maximum is maintained. 


When 'Put A Number' is called, the number is converted into 
ASCII characters and appended to the output record string, 
One (1) character of control information is also appended. 
(file separater CHAR$(28) ) 


When 'Put A String! is called, the string and it's control 
character is appended to the output record string. Control 
information consists of the group separater CHR$(29). 

The format of the output record will be: 


FS/Ny/FS/No/GS/S ----- GS/Sp/FS/N,/ETX 
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Where FS = file separator character preceeding all numeric fields. 
GS = group separator character preceeding all string fields. 
ETX = end of text character. 


Put number expects a value in Y. 
Put string expects a string value in Y$. 


Write A Data Record 


After the user has 'PUT' his numbers and strings, he may write 
a data record. This routine actually writes the data to 
tape (assuming the output file is open), 


Get A Number and Get A String 


The opposite of putting a number/string is 
'GET'ting a number or string, 


Using this routine the program will decode the input record 
string and make available the next value, 


When 'GET' a number is called, the program will return the 
value in X, 


When 'GET' a string is called, the program will return the 
value in X$, 


In both cases, a check is made for 'GET'ting the correct type 
of variable. 


If you call 'GET' number and a string value is the next element 
an error will result and the program aborts, 


The order in which the user should 'GET' variable should be the 
same order as how the programmer had 'PUT' the variables. 
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Read A Data Record 


After the user has opened the input file, data records may be 
read. This routine makes data available to the program to 
'GET' strings or variables. 


An error occurs if the user attempts to read past end-of-file, or 
read from a closed file. 


ERROR MESSAGES 


Attempting to close a file that was not opened 


A file must be opened before a close command can be executed - 
check program Logic. & 


Attempting to 'GET' a string/number before a read 


The user is attempting to extract data from the input record 
before any data way made available to the program, 


Attempting to read from an unopened file 


The user must open the input file before a read data record 
can be performed. 


Attempting to read past end of file 
The user has failed to check properly for the end of file 


condition. End of file exists when PEEK(28684)=2, Another read 
should not be performed after the byte is set to 2, 


Attempted write to an unopened file 


The user must first execute an ‘Open Output File' routine to 
initialize the header REC, 


Header label not found 


The first detected record was not a header record on the input 
tape. Check for proper positioning of the tape, New 


Note: Only tapes created from the program output routine should 
be used as input to another or the same program, 
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~ 
Input file already opened 
The user is attempting to open the input file without an 
intervening close statement, 
Label error - Label found = NN 
The label the user has specified does not match the label on the 
tape. 'NN' specifies what the open routine found on the tape. 
The user will be asked if he wishes to continue, Only a 'Y' 
response will be accepted in order to continue. All other responses 
will result in the program aborting. 
Maximum record length exceeded 
The sum of all the characters has exceeded 255 characters, 
Note: The 255 character limit applies to all control characters 
embedded within the output record, 
Output file already opened 
ny The user has attempted to open the output file without an inter- 
vening 'CLSOE OUTPUT FILE' command. 
Type conflict exists 


Two conditions can cause this message. 


1, The user has requested a 'GET' string and a numeric 
field is next or he has requested a 'GET' number and 
a string field was next. 


2. The user has requested a 'GET' string of 'GET' number 
and there are no remaining fields left in the input 
string area. The user should check the format specified 
against the tape format. 


PROGRAM LISTING WITH COMMENTS 


PROGRAM LISTING 


1 GOSUB_65pf/) Required Before any Tape I/O Instructtons 
1¢ PRINT "1, Open file as output 7, Put String" 
20 PRINT "2, Open file as input 8. Write data record" 


3d PRINT "3, Open file as extend 9, Get next number" 


Filename 


4p 
50 
60 
65 
79 
75 


89 
96 
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PRINT "4. Close input file 10. Get next string" 
PRINT "5, Close output file 11. Read data record" 
PRINT "6. Put number" 

PRINT 

INPUT "Enter the number of the function or -1 to stop "3;C 
IF C=-1 THEN STOP 


ONC GOTO 2000 ,2020 ,2030 ,2040 ,205P 2960 2070 ,2980 ,2090, 
2190 ,2119 


PRINT "INVALID CHOICE":GOTO 16 


Lines 70-90 Get a User Choice and Jump to Terminal Prompting Sections. 


2606 
2902 
2004 
2006 
2608 


2029 
2922 
2924 
2026 
2928 


2939 
2932 


2934 
2936 
2938 


REM*****QPEN FILE AS OUTPUT 

PRINT"READY OUTPUT DRIVE AND HIT (RET) TO CONTINUE": PAUSE 
LINE INPUT"ENTER OUTPUT LABEL" ;Y$ 

GOSUB 64100 

PRINT"DONE":GOTO 10 


REM*****QPEN FILE AS INPUT 

PRINT"READY INPUT DRIVE AND HIT (RET) TO CONTINUE" : PAUSE 
LINE INPUT"ENTER INPUT LABEL" ;X$ 

GOSUB 64139 

GOTO 2998 


REM*****0PEN FILE AS EXTEND 


PRINT"READY INPUT AND OUTPUT DRIVES AND HIT (RET) TO 
CONTINUE" : PAUSE 


LINE INPUT "ENTER INPUT FILE LABEL";Y$ 
GOSUB 64190 
GOTO 2998 


> 


Filename = I/0 Routines - Masuda 


2949 REM*****CLOSE INPUT FILE 

2942 PRINT"INPUT FILE IS NOW CLOSED" 

2944 GOSUB 64239 

2946 GOTO 2998 

2059 REM*****CLOSE OUTPUT FILE 

2052 PRINT"OUTPUT FILE IS NOW BEING CLOSED" 
2054 GOSUB 64249 

2956 GOTO 2998 

2060 REM*****PUT NUMBER 

2962 INPUT"ENTER A NUMBER OR -1 TO STOP ":Y 
2964 IFY=-1G0T0 2998 

2966 GOSUB 64269 

2068 GOTO 2962 

2070 REM*****PUT STRING 

2072 LINE INPUT"ENTER A STRING OR'END'TO STOP":Y$ 
2974 IF Y$="END"GOTO 2998 

2976 GOSUB 64299 

2978 GOTO 2972 

2080 REM*****WRITE DATA RECORD 

2982 PRINT"RECORD BEING WRITTEN" 

2984 GOSUB 6431p 

2986 GOTO 2998 

2999 REM*****GET NUMBER 

2992 GOSUB 64369 

2994 PRINT"NUMBER RETRIEVED=" 3X 


2996 GOTO 2028 


Filename 


2100 
2102 
2104 
2196 


2110 
Z1t2 
2114 
2116 


64900 
64605 
64010 
64615 
64626 
64625 
64030 


64949 
64945 
64959 
64955 
64969 
64965 
64979 
64975 
64989 
64999 
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REM*****GET A STRING 

GOSUB 64399 

PRINT"STRING RETRIEVED="3X$ 
GOTO 2008 


REM*****READ A RED 
PRINT"READING RECORD" 
GOSUB 64449 

GOTO 2408 


REM READ A RECORD 

POKE 17990,177:POKE 17991,1 Set Up USR for PAM Load 
Z$="_":Z9=USR(@) Read From Tape 

FOR Z8=28684 TO 28683+PEEK( 28683) 

Z7$=Z$+CHR$(PEEK(Z8)) Collect Character From the Buffer 
NEXT Z8 

RETURN 


REM*****WRITE A RECORD 

Z9=LEN(Z$):POKE 28683,Z9 Store String Length 

FOR Z8=1 TO Z9 

POKE 28683+Z8,ASC(MID$(Z$,Z8,1)) Store Char String into Buffer 
NEXT Z8 

POKE 17999,252:POKE 17991,1 Set up USR for PAM Dump 

POKE 8192,1@:POKE 8193,112 Beginning Dump ADR 


POKE 8212,12=POKE 8213,113 Ending Dump ADR 
Z9=USR(Q) Write to Tape 
RETURN 
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64109 REM*****OPEN FILE OUTPUT 
64195 IF PEEK(28681)+9 GOTO 64115 If File ts Closed. Continue 
64110 PRINT Z1$:STOP Error - Ftle Open Already 
64115 POKE 28681,1:POKE 28682,9 Set File Status to Onen 
Set Ree Type to Header 
64129 Z$=Y$:GOSUB 64949:Y9$="_" Write out Header Rec 
64125 RETURN 
64136 REM*****QPEN FILE INPUT 
64135 IF PEEK(28689)=@ GOTO 64145 Check for Already Open File 
64146 PRINT Z2$:STOP File Open Error 
64145 POKE 28689,1 Set File to Open Status 
64150 GOSUB 64909 Get a Record 
64155 IF PEEK(28682)=0 GOTO 64165 Check for Header Rec 
64169 PRINT Z3$+STOP Not Header 
64165 X9=-1:I1F Z$=X$ THEN RETURN Label Error? 
64170 PRINT Z4$;Z$ 
64175 LINE INPUT"CONTINUE?Y/N"3X0$ See if User Accepts Error 
64180 IF XO$="Y"THEN RETURN 
64185 STOP 
64199 REM*****QPEN FILE EXTENDED 
64195 X$=Y$:GOSUB 64130 Open Input File 
64200 GOSUB 64199 Open Output File 
64205 GOSUB 64449 Read A Ree 
64219 IF PEEK(28680)=2 GOTO 64225 OF? 
64212 Y9$=X9$ Move to Output Area 
64215 GOSUB 64319 Wrtte Data Rec 
64220 GOTO 64205 Loop Until FOF 


64225 GOSUB 64230:Y$="_" :RETURN Close Input File 


Filename 


64230 
64231 
64232 
64235 


64249 
64241 
64242 
64245 
64250 


64269 
64265 
64279 
64275 
64289 
64285 


64290 
64295 
64300 
64305 


64319 
64315 
64326 
64325 
6433¢ 
64335 
64340 
64345 
64359 
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REM*****CLOSE INPUT FILE 

IF PEEK(28680)=1 OR PEEK(2868f)=2 GOTO 64235 
PRINT X2$:STOP Error If Already Opened 
POKE 28680,@:RETURN Set Status to Close 


REM*****CLOSE OUTPUT FILE 

IF PEEK(28681)=1 GOTO 64245 Check to See tf Open 
PRINT X2$:STOP 

Z$=Z9$:GOSUB 64942 EOF-Write to Tape 

POKE 28681,9:RETURN Set Status to Close 


REM PUT A NUMBER 

Y8$=STR$(Y) Make No A String 

IF LEN(Y8$)+LEN(Y9$)+3 <=255 GOTO 642890 Check for Overflow 
PRINT Z5$:STOP 

Y9$=Y9$+CHR$( 28) +Y8$ Append to Output String 

RETURN 


REM*****PUT A STRING 

IF LEN(Y9$)+LEN(Y$)+3 <=255 GOTO 64305 Check for Overflow 
PRINT Z5$:STOP 

Y9$=Y9$+CHR$(29)+Y$:RETURN Append to Output String 


REM*****WRITE A DATA RECORD 

IF LEN(Y9$)+3 s=255 GOTO 64325 Check for Overflow 
PRINT Z5$:STOP 

Y9$=Y9$+CHR$(3) Append ETX Character 

IF PEEK(28681)=1 GOTO 64346 Check for File Open 
PRINT Z6$:STOP 


POKE 28682 ,2 Set Record Type to Data 
Z$=Y9$:GOSUB 6494¢ Wrtte Record 
Y9$="_ "RETURN 


_«@ 


Filename 


64369 
64361 
64362 
64365 
64379 
64375 
64380 


64399 
64391 
64392 
64395 
64499 
64405 


64419 
64415 
64420 
64425 


64430 


64449 
64445 
64450 
64451 
64452 
64455 
64460 
64465 
64470 
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REM*****GET A NUMBER 

IF X9 >=1 GOTO 64365 Cheek for Available Data 
PRINT X3$:STOP Read First ERR 

IF MID$(X9$,X9,1)=CHR$(28)GOTO 64375 Confltet? 
PRINT Z7$:STOP 

X$="_":GOSUB 64419 Append Char and Build String 
X=VAL(X$) :RETURN Convert to Numeric 


REM*****GET A STRING 

IF X9 >=1 GOTO 64395 Cheek for Available Data 
PRINT X3$:STOP 

IF MID$(X9$,X9,1)=CHAR(29)GOTO 64405 Conflict? 
PRINT Z7$:STOP 

X$="_":GOSUB 64419:RETURN Build String 


REM*****COLLECT A STRING 


X9=X9+1 Inerement Input Potnter 

X8$=MID$(X9$,X9,1) Get Next Char 

IF X8$=CHR$(28)0R X8$=CHR$(29)OR X8$=CHR$(3) 
THEN: RETURN Is It a Delimiter? 


X$=X$+X8$:GOTO 64415 Build String:Get Another Char 


REM*****READ A DATA RECORD 

IF PEEK(28680)=1 GOTO 64451 Check File Status 

PRINT X1$:STOP 

IF PEEK(28680) <>2 GOTO 64455 Cheek for EOF Read 

PRINT X4$:STOP 

GOSUB 64900 Read A Record 

X9$=Z$ 

IF X9$=Z9$:THEN POKE(28680)2 If EOF Set Flag In File Status 
X9=1:RETURN 


Filename 


65000 
65005 
65010 
65015 
65020 
65025 
65030 
65035 
65040 
65045 
65046 
65047 
65048 
65050 
65055 
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REM*****MESSAGES AND CONSTANTS 

Z0$="1EOF-H8" 

Z1$="**OUTPUT FILE ALREADY OPENED**" 

Z2$="**INPUT FILE ALREADY OPENED**" 

Z3$="**HEADER LABEL NOT FOUND**" 

Z4$="**LABEL ERROR-LABEL FOUND=" 

Z5$=""**MAXIMUM RECORD LENGTH EXCEEDED**" 
Z6$="**ATTEMPTED WRITE TO UNOPENED FILE**" 

Z7$="**TYPE CONFLICTS EXIST**" 

X1$="**ATTEMPTING TO READ FROM AN UNOPENED FILE**" 
X2$="**ATTEMPTING TO CLOSE A FILE THAT WAS NOT OPENED**" 
X3$="**ATTEMPTING TO GET A STRING/NUMBER BEFORE A READ**" 
X4$="**ATTEMPTING TO READ PAST END OF FILE**" 

POKE 282698,0:POKE 28261,0 Set File Status to Close 
RETURN 


FILEMAINT/MULTISORT 


Roseman 


The file maintenance system enables the user to create, 
update and sort a file placed on tape. The system consists 
of two programs, FILEMAINT and MULTISORT. The sort is run 
as a separate program in order to make as much memory avail- 
able to it as possible. 


The tape I/0 routines are those of Mr. Bellinger* (to whom 

I will be forever grateful). While these routines are rather 
slow, they do seem to work quite well. They offer program 
controlled sequential I/0 operations on files too large to 

be read into memory, 


When you run the FILEMAINT program you are asked which of 
four options you desire. The options are: 


Establish new file. 

Insert additional items to an existing file, 

Make changes or deletions to an existing file. 
List out an existing file. A message is generated 
requesting entry of the option desired. 


PwWNMrHR 


Each option operates as follows: 
1. ESTABLISH NEW FILE 


A message is generated requesting the number of 
fields desired in the record and the name of each 
field. Following these entries you will be dir- 
ected to ready an output tape (please use a clean 
one), and press space bar when ready, 


The program will now accept entries to the record. 
You will be prompted in these entries by the names 
previously supplied to the program. 


After entering the last data field in the record 
you are asked to check it for mistakes. Press 
return if record is OK. If you discover that you 
entered some wrong information you simply key in 

the number of the data field in error and reenter 
the data. Again you will be asked is the record 

is OK; if it is, hit carriage return and the re- 
cord is written out to tape in the following format: 


/DATA1/DATA2/DATA3/ - - ---- - /DATAn 
* REMark Issue #3, page 3 and 11 
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The slashes are used as delineators. Note that the 
total length of a record cannot exceed 256 charac- 
ters including slashes. 


The system now asks if you are finished. If not, 
you are again prompted to enter a new record. If 
you are finished, the system writes a trailer re- 
cord to the tape file. The trailer record con- 
sists of an asterisk (*). After the trailer is 
written, the program asks if you wish to continue 
using the FILEMAINT system, At this point I usually 
like to take a look at the file and check it for 
errors. (I suspect my real motive is just to admire 
it.) If you wish to look at the file, select option 
number four (4). 


2. INSERT ADDITIONAL ITEMS TO AN EXISTING FILE 


When this option is selected you are instructed 

to ready an input and output tape and to press the 
space bar when ready, The system then proceeds 

to read each record off the input tape and write 

it to the output tape. When the end of file trailer 
is detected on the input tape, the program reverts 
to the same routine it used in option number one (1) 
where you first established the file. 


You are asked to name the input fields so the system 
can prompt you through your entries. However, you 
are not required to input the number of ddta fields 
because the system has already established this while 
it read the input file, i.e., all records in the file 
must have the same number of data fields; a count 

of slashes in any given record determines the number 
of fields for all records. As in option number 

one (1), the records are written to the output tape 
as you enter and verify them, After each record 
entry, you are asked to determine whether or not 

you are finished or wish to continue. 


3. MAKE CHANGES OR DELETIONS TO AN EXISTING FILE 


This option invokes a very flexible routine which 
allows you to correct or delete entire records or 
only certain fields within the records or any com- 
bination of the above. 
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When you choose this option, you are asked to enter 
the field number to be used as the search argument. 
Next you must enter the search argument itself. You 
are then asked to mount tapes and to press space 

bar when ready. The input tape is read and the con- 
tent of the field you selected is compared against 
the search argument you entered. If they are not 
equal then the record is written to output tape and 
a new record is read from the input tape. The above 
procedure is repeated until the proper record is 
found. When the record to be corrected is found, 

it is printed out and you are asked to enter the 
field number to be corrected or to enter zero (0) 

to delete or correct the whole record, Assuming 

you enter (0), you are then asked to hit carriage 
return to delete the record or to reenter the en- 
tire record. If you select a field number, you are 
then asked to reenter the field. In either case, 
the system asks if you are finished with correc- 
tions to this record. If so, the changed record 

is written to the output tape; if not, you are 

again asked to enter a field number and the pro- 
cedure is repeated, Once the record has been 
written to the output tape, a prompt will ask 
whether or not you desire to make any more changes. 


If your file is already sorted (e.g,., on last name) 
then you can save time by entering your corrections 
in the same order. If desired, the program will 
continue to search the input tape for additional 
records to be corrected or deleted. When no more 
changes are to be made, the remaining input re- 
cords are written to the output tape. 


4, LIST OUT AN EXISTING FILE 


When this option is chosen, you are instructed to 
ready the input tape and press the space bar when 
ready. The program reads the input tape and lists 
it out record by record, i.e., read record, print 
record, read record, print record, etc. When the 
file trailer (*) is encountered, you are again 
asked if you desire to end or continue, Prompts 
direct proper responses for the end or continue 
function. Tape copies can also be made using this 
option. 
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GENERAL PROGRAM COMMENTS: 


1. 


In order to use Bellinger's tape I/0 routines, 

it is necessary that BASIC be reconfigured so 

that the "HIGH MEMORY" limit is lowered 256 bytes. 
The author's system presently has 20K (HIGH MEMORY 

= 28672), just to be on the safe side I lowered it 
300 bytes to 28372, Statement #100 in the program 
listing should be changed to the user's reconfigured 
high memory limit. 


FILEMAINT was written in EXTENDED BASIC Rec, 10.02.01, 
In this revision, USRFCN is located in memory posi- 
tions 17990 and 17991, If the user has a different 
revision, then statement #65010, 65020, 65180 and 
65190 must be changed to that revisions USRFCN 

address (in decimal). The USRFCN address can be 
found in the table at the rear of the BASIC manual, 


The second part of the FILEMAINT system is a pro- 
gram which enables the user to sort the tape file 
created by the FILEMAINT program, In using the 
MULTISORT program, up to ten (10) sort fields can 
be specified. These fields are specified from 
major to minor, for example, in the record below 
Suppose we wish to sort on salary by group in a 
given region. We enter the sort fields as 5NA, 
7NA, 3ND (where A is for ascending and D is for 
descending). 


#1 #2 #3 #4 #5 #600 #7 
/LAST NAME/FIRST NAME/SALARY/ADDRESS/REGION/SSN/GROUP 


The sort operates as follows: 


1. The user is asked to input the number of records 
in the input file. This may be overestimated 
but should never be underestimated, Try not 
to overestimate too much as this costs memory, 


2. The next input is the number of fields to be 
sorted on, In the example above, this would 
be three (3). 


3. Now the field numbers are input one at a time, 
Again in the example, these would be 5NA,7NA,3ND, 
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10. 


it, 


The program now asks you to ready the input tape 
and to press the space bar when ready. 


As the program reads the input tape, it builds 
a table in memory containing only the data con- 
tained in the sort fields of each record and 
the record number. NOTE: If this table ex- 
ceeds your available memory, then the sort 
cannot be run, In this case you must reduce 
the number of sort fields specified in (2) 
above. 


The above table is now sorted, 


The program next asks you to ready an output 
tape and to press the space bar when ready. 


The program predetermines the number of whole 
records it can read into memory, It does this 
by dividing your available memory by an average 
record length which was determined during the 
first pass of the input tape, The number of 
records on the input tape was also determined 
during the first pass. The number of records 

on the input tape is divided by the estimated 
number of whole records that can be read into 
memory to determine the minimum number of passes 
of the input tape that will be required to 
complete the sort. The minimum number of passes 
is then printed out, 


You are now asked to rewind the input tape and 
ready it to be read again, 


The program now tries to match records off 
the input tape against the sorted table, 
When a match is found, the record is placed 
in memory, This process continues until we 
run short of memory or we encounter an end 
of file (*). 


The table of matching records is now written 
to the output tape and the user is again asked 
to rewind the input tape for the next pass. 
This process continues until we satisfy all 
records in the sorted table, The same general 
program comments apply to this program as to 
FILEMAINT, 
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Hardware requirements for this system are: 
H8 with 16K 
Terminal 


Two (2) tape recorders 


<H>CUDKG> <<S>KOOKFOCTOCWOCAGAROCE> <UECOo<LD OTT 


PROGRAM NAME: FILE MAINTAIWANCE - ROSEMAH 


G@GG5G REM +44 SET GLOBAL CONSTANTS ##* -------~~--------~---- 
66168 M=253 ary ra 

66266 DEF FN Lixos=K-2Z56#INTOR- 2569 

@G3GG@ DEF FN ULsO=IHTeR- 2565 


gadqaa D=8 

@660G C= 

GG64G REM seek PRINT OPTIONS se --------------~---~~------~- 
@666G PRINT "FILE MAINTENANCE OFFERS YOU THE FOLLOWING OPTIONS:" 
@G7OH PRINT "------~------------~--------~--------+------------- " 


66366 PRINT 

6900 PRINT "1.- ESTABLISH NEW FILE” 

G1iG@G@ PRINT "2.- IHSERT ADDITICWAL ITEMS Ta AW EXISTING FILE” 
@11@@ PRINT "S.- MAKE CHANGES OR DELETIONS TO AH EXISTING FILE" 
61206 PRIHT "4.- LIST GUT AN EXISTING FILE” 

@13@G PRINT =: PRINT 

BiS56 REM wee ENTER DESIRED OF TLON 466 ——-—<—<~———— == 
@146@ INPUT "ENTER OPTION VOU DESIRE ©1.2,.3-0R 43 "30 

BiseG IF Go4 OR Oi GOTO idee 

1606 ON CO GOTO 1°68, 5°8e, 7PRe, 13988 


@1é65@ REM #t NEW FILE RTH se ---------------------------------- 


Biyee@ Ua) 

@i1S@G@ IHPUT "HOW NANNY FIELDS ARE THERE IW RECORD "SF 
Bisse Fi=F 

@13@6 IF D=1 THEN GOSUB {Sear 

B2e0e D=] 

G@2650 F=Fi 

2146 DIM T#{F>.D#¢F> 

@215@ FEM st: ESTABLISH FIELD WANES FOR PROMPTS see ----— 
@2268 FOR [=1 Ta F 

@2200 PRINT "EWTER TITLE OF FIELD #"s1 

6246G@ LINE IHPUT s$T#CIsi Tec lo2=T#e Tae: 

@2568 WENT I 

G@260G IF W=2 GOTO 23988 

@276G FRIHT "READY OUTPUT TAFE --FPRESS SPACE BAR WHEN READY--"=:PA 
USE 

A230 A=G 

G2850 REM +2 CLEAR SCREEH +## ----——-~-—-—-—~--~~~——~—~——--~~——~—- 
B2966 FRINT =FRINT 'PRIWT tPRINT it FPRIWT © PRIWT 

BSG6G PRINT :PRIHT «PRINT «PRINT ¢ PRINT = PRIHT 

03166 PRIHT "-- RECORD Mcp 7 een 


SHOCUOKG> <<SPCORMF OC TECHOKAOKROCE> <U>COOCL> II 


PROGRAM HAME: FILE MAIHTAIMAHCE — ROSEMAH < CONT’ 


G315G@ REM ++ ENTER RECORD sce -~---------~~—---—~——-——---~~~—- 
3266 FOR I=1 To F 
B3368 FRIWHT TéiT> 
BSI58 LINE IMPUT sb$xr> 
H2466 NEAT I 
@S356G@ PRINT "PRESS RETURN IF RECORD I5 cK" 
@S6GG LIME IHPUT "EHTER FIELD # TO BE CORRECTED IF HOT "SE 
@iree@ IF E#="" GoTo 4166 
3866 IF WALVTESS<1 OR WALCES>93F GoTa Fee 
G39@G PRINT TECVALCE$) 3 
@S958 LINE ITHPUT sD$cVvAL eso 5 
S4eeaq GOTO Bae 
A4G50 PEM ss CORSTRUCT OUTPUT RECORD «#4 ------------—-~-— 
B4iee@ ff-"" 
44266 FUR I= 1 Ta F 
@430G S$=2F4+ "6" 4bS0 75 
44a WENT I 
™, 84686 GOSUE B5118 
64706 LIHE IHPUT "PRESS RETURH TO CONTINUE ENTRY. ENTER «Fo IF FI 
HISHED "SFE 
84506 IF aa GOTO F1ee 
H4390G IF FECE"F" GOTO 4788 
pis ii REM stk WRITE TRAILER RECORD TO FILE #«## -—--------—- 
bar] 151 2 -e= UW e ” 
eae GOSUB SaL1a 
BS1se@ IF Si= ANP W=2 THEM FRIWNT "SEARCH ARGUMEHWT OF "SSée" HOT F 
QOUHD IN FILE” 
65206 LINE INPUT "ENTER “E> TO EHD PROGRAM. ENTER «<C> TO COMTINUE 


"SUS 

@5300 IF U$="C" THEN PRINT "------ "3AS"RECORDS WRITTEN --~--- "260 
TO 6aa 

@5409 IF Us<¢>"E" GOTO Sze 

@55@@ PRINT "-—--—~ "3Hs"RECORDS WRITTEN ----~- , 

@S6@q END 

@5656 REM se INSERT ADDITIONAL ITEMS RTM #4 -----------~------- 


i675 IF Cr=1 GOTO 339668 
@Sr@@ PRINT “READY IHPUT AWD OUTPUT TAPES ~-PRESS SPACE BAR WHEN 
READY-—" i PAUSE 
BS368 A= 
B5968 CY=6 


<H><US><G> <SOKOSKFOMTOCWOKAPKROCED <UOKO>KL> IT 


PROGRAM NWAME: FILE MAINHTARINANCE -— ROSEMAW < COHTD 2 


86006 GOSUB Baa 
G6656 REM +44 SEARCH FOR END OF FILE sts: ----------------— 
6616@ IF 2¢="*" GOTO 63964 

6266 IF WersooTo ese 

66366 GOSUEB Sige 

66466 IF CYr=1 GOTO Frag 

G6eG@ 21s=ZF 
@6766@ GOSUB 65116 

Geaseaea GOTO 6eeaq 

G685@ REM te: COUNT FIELDS IH RECORD «### —--------------- 
696 IF Wet GoTo 51iee 

@7G@G Y=LEHC21#> 

6Fige Fi=a 

@7266 W=2 

@736G@ FOR I=1 Ta ' 

O74GG@ IF MID#ECS1#,.1,.19="-" THEN Fi=Fit+li 
@7566 WEXT I 

Feee GOTTA 1966 

@7656 REM +4 CHAHGE’“DELETE RIN #4 ~------~—--—~--—-<---—- 
@776G IMPUT "ENTER FIELD # ‘YOU WISH TO KEY GH IH RECORD TO BE CHA 
NGED "sk 

YSGG LINE INFUT "ENTER SEARCH EE’ FOR ABOWE FIELD "ss 
GF 366 W=s 

ASGeea GOTO Fene 

68166 REM +e« TEST FIELD FTN te ----------—-—-----—-—---— 
68266 IF CY=2 THEM RETURH 

Q@S258 51=8 

@Sseeq Ci=e 

@840G@ C2=i 

BSSGG ViL=LEHC2Z#> 

BS6ée08 S2e="" 

G@3rea IF MIDS¢2$.C2.13="-" GOTa 91ee 

GS85G0 Cz=C2+i 

6S83GG@ IF C221 THEN RETURH 

B38GG GOTO erac 

@316@ Cl=Ci+l 

63156 REM +++: CORRECT SEARCH FIELD 7 +44 ---------------- 
@9266 IF Ci< sk GOTO sone 

9368 C2=C2+1 

@9466@ IF C221 GOTO 3588 


SHO<US<G> = ¢ OS4F PCT SCWSCADAROME> <USKORKL> TT 


ur 


PROGRAM HWAMNE: FILE MAINTAIMANCE —- ROSEMNAH < CONT“D > 


BI5GG@ IF MIDS (S$.C2,13="-" GOTO 38ee@ 

GI6GG S2E=LSEANIDEC SE. CZ. 12 

B97GG GOTO gaa 

O97S8 REM wer DOES FIELD MATCH SERRCH KEY ? #44 -----—---—— 
@3806 IF S$=22% THEN S1=1:°G0TO 16866 

89968 RETURN 

1G@GGG FRIWT 2¢ 

1@1@6 PRINT "ENTER (@> TO CHANGE GR DELETE WHOLE RECORD” 
1626@ INPUT "ENTER FIELD # TO CHANGE CR DELETE THAT FIELD "36 
1@256 IF GéG@ GOTO 16166 

168368 IF Gé>e@ GOTO 1eree 

16356 REM ++: CHANGE OR DELETE WHOLE RECORD #4 -~-----~— 
14486 PRIWT "INPUT HER RECORD OR HIT RETURH FEY TO DELETE” 
16506 LINE INPUT "-~"s2% 

16686 GOTO i2iee@ 

1G65G REM sete COPY OLD RECORD UP TO CHANGE FIELD #4 --— 
14768 Ci=e 

1@see C2=1 

1@966 23¢="" 

11GGG@ 23F=23F+NIDS( 2.02.19 

11166 IF MIDS ié$.C2,.i9="-" GOTO 1256e 

1126@ C2=C2+1 

113@@ IF C2e1 GOTO 11688 

114@@ Z23$=f22F+MIDStS$.C2.19 

11566 GOTO 11166 

1166@ PRINT "FIELO"sGs "HOT FOUND” 

1165@ REM +++ AH’ MORE CHAHGES TO THIS RECORD 7 #4 ---~ 
1176@ LIWE IMPUT "EWMTER “Mo FOR MORE CHANGES TO THIS RECORD.«N> F 
OR HOWE "sult 


12888 Ze Hpi N, curd beaee 


126356 REM +++ ANY MORE CHANGES TO THIS FILE Y w#4 ------ 

12166 LINE INPUT "ENTER *C> FOR MORE CHANGES TO THIS FILE. “Ho FOR 
HONE " sth 

i2z2@6 IF Us="C" THEN Cr=1°GOSUE Sallei RETURH 

iz366 IF US="N" THEN Cr=2:RETURH 

{2488 GOTO i21ge 

12506 C1l=C1+1 

12550 REM +t TEST FOR CHANGE’DELETE FIELD #84: ~----~~-~ 

126@G IF Ci<eG GOTO 11286 


<HO<US4G> <SPCOOKF RC TOCWOKASKROCE> SUSCORKLS OTT 


PROGRAM HANE: FILE MAINTAIWHAHCE - ROSENAR < CONT“D > 


12656 REM st ERTER AND COPY CHANGE #840 —-<—<<—<<<—<———-=— 

1276@ LINE INPUT "ENTER CHANGE "sad 

12886 Z3S=23S+RF 

iZc5@ REM +64 COPY REST OF RECORD ‘tk —<— eee mme 

2906 C2=C2+1 

13G6G@ IF C2>'/1 GOTO i2ree@ 

1S1G@ IF MIDS<2$.CZ.19="-" GOTO 13388 

13268 GOTO 12968 

ISSOG SIF=LSIS+MIDSEC SE. CZ. LS 

13468 C2=C2+1 

1S356G IF C21 GOTO 1freae 

13666 GOTO 13288 

137GG S$=23F 

L275@ VIFLENC Z$) 

Soeea GOTO 1i ree 

De PRET) RM EET TRU SSE cr tice rn ts ae a reese oe 
1466@ PRINT "MOUNT INPUT TAPE --PRESS SPACE BAR WHEN READ'Y-—-"=: PAU 
SE 

14@1@ PRINT "IF YOU WISH TO COPY THIS FILE WHILE IT IS LISTED. THE 
N ENTER ¢C)." 

14626 LINE INPUT "IF WOT THEM HIT RETURH "sie 

14636 IF Q¢="C" THEM PRINT "MOUNT OUTPUT TAFE -- PRESS SPACE BAR 
WHEN READY ~—"= PAUSE 

14166 GOSUE éseea 

1411@ IF @F="C" THEH GOSUE 65118 

1426@ IF 2$="4" GOTC i450 

14366 PRIWT 24 

14466 GOTO 14186 

14566 PRIHT : PRINT 

1466@ LINE IHPUT "ENTER “Co TO COHTINUE. {E> TO EMD "SF 

14768 IF P="C" GOTO 6a 

14806 IF P$<>"E" GOTO 14688 

14966 END 

Sees REM wt CLEARS TASLES sk ~<e—==—=——<— eee 

1510G@ FOR I=1 TO Fil 

15266 T#c I 9="" 

15266 D$<To="" 

1354@@ NEXT I 

ISS6@ CLEAR T#* 

15666 CLEAR De" 


BE Se 


SH><US4G> <5>40> 


PROGRAM WANE: 


15See 
reer 1 1 
65616 
65628 
65626 
65648 
6S BSE 
65668 
rae Sia 
65888 
65898 
65 168 
651148 
65126 
65125 
651 
651758 
65146 
65156 
65168 
65176 
65136 
65196 
65264 
65216 
65224 
Bo236 
65248 
65258 


<PRT Pulp? 


RETURMH 

REM 4c TAPE READ 
POKE 1°99@. 177 
FOKE 17991.1 

POKE S1i92.FH L¢M> 
PORE S193.FH Uch 
2=USR¢ 3 

Fibs om HR OEE 

FOR 2=M+1 TO M+FPEER CMS 
2$=2$+CHRE (PEER S299 

HEXT 2 

RETURH 

REM seet TAPE WRITE RTH seat 
26=LEN« 24) 

IF e@=8 THEM RETURM 


ETT sestok 


2? A=A+1 


PORE M. 2a 

FOR 2=1 TO <6 

PORE M+e.ASCOMID$t2$.2.199 
HEAT 2 

2=M+28 

PORE 
FORE 1 
PORE & 
FORE & 
PORE & 
PORE & 
a=USR¢G 
RETURH 


Lunt 
4Y Uh 
4 L¢Zo 
Ue s3 


APSR O<E> 


FILE MAIHTAIHAHCE — ROS 


CHEKURKG> <SOMODCF OM TOMUSKADKR OSE? <UEKOOKLD II 


FROGRAMN HAME: MULTI SORT -— ROSENAH 


GGG95 REM te: INPUT AND INITIALIZATION SECTION tt 
GEGI6 DIM SC1G),BC1G.2>, 8818) ,Uscigy 
@G18G M=ZE372 
@azeq 11=1 
GESGG ARG 
ga4ea B= 
eas5ea M1=346 
ageaa K=o 
Ba7Ga P=a 
aeaeea C=1 
ea7ea Al=6 
e1gae E1=1 
@11e@@ Lé=1 
@ize@ Le=6 
@13Q@ DEF FN L(é3=x-256*"INTCN“256) 
@14G@ DEF FH UCH3=INTCHY256) 
GiSGG INPUT "INPUT # CIF RECORDS ON INPUT FILE “CAM BE GVERESTIMAT 
ED) "sR 
@166G INPUT "INPUT # CIF SORT FIELDS (1a OR LESS? "GN 
@i7a@ FOR I=1 Td H 
G18@@ PRINT "ENTER FIELD #. TYPE ¢X-ALPHANUMERIC OR N-HUMERIC>." 
@125G PRINT "AND SORT SEQUENCE “A-ASCENDING OR D-DESCENDING?. FOR 
SORT FIELD"s1 
@196@ LINE INPUT "! "GFZ 
@191@ IF VALCMIDS<F2$.1,12941 GR VALCMIDSCF2$,1,199318 GOTO 1886 
@1920 IF MIDS(F2$.2.194>"H" AND MIDS(F2$.2.19<>"N" GOTO 196 
@193@ IF MIDS(F2$.3.19<>"A" AND MIDSC(F2$.3.194>"D" GOTO 186E 
G1i94G SCID=VALCMIDECF2$.1.129 
G195@ X#CLI=MIDSCFZE. 2. 1) 
GI96G VEC IO=MIDSCF2S, 5.1) 
20GG NEXT I 
@2G5G REM ee CONSTRUCT TABLE OF KEY FIELDS sta 
@Z216G DIM HICR>, TER) 
G220G PRINT "READY INFUT TAPE --PRESS SPACE BAR WHEN READY-—": PAU 
SE 
G236G GOSUB ésaae 
@246@ LE=LS+LEN(T#(A2> 
@250G IF Mi-(SG+44R+LG9<a THEN PRINT "SORT TABLE > MEM AT REC "5A 
‘END 
@260@ IF MIDS(Z$.1,19="*" GOTO Sers 
a27ea ASA+1 


SHOKUS<G> <S>KOSKF OM TOAWOSADS REE? << O<L> II 


PROGRAM HANES MULTI SORT - ROSEMAH < CONT“D 


S288 
23H 
AZBaea 
63186 
PS ES SS 
2488 
S568 
S688 
Sy Be 
cca 
tet cS) 
een 
4 00a 
4168 
84266 
B420G 
4408 
A4 506 
84666 
47a 
S4586 
4908 
1S per S515 
SS ese 
BSare 
GSH" S 
85186 
86356 
Be6468 
USE 
863586 
S655 
G6 568 
Gé657a 
65a 
St 1 
B6Seaea 
46 398 
se 1 
BT aig 
BF E28 


HitAs=A 
V=LEHi ee? 
ALl=Aity+2 
FOR I=i Tc WH 
L?7=8 

FOR J=1 Ta ' 
IF MIDSCS$,I,19¢2"-" GOTO 490@ 
LY=LY+1 

IF LY<rSel> GOTTA 49648 
TEC AD=HTECAREI 

J=I+1 

IF 32 Gata Rai 

IF Ll hae 2%, 3,13="-" GOTO 46e8 

TEAS =TSt A ea 

J= Pay 

IF 334 Gata 3868 

IF MID#°<2¢,.3.13="-" GOTa Seeaa 

GOT 4166 

TEC AI=TECAD+" 

FRIHT "HULL DATA IH RECORD #"sAs"FOR SGQRT FIELD"; 

GOTO Sea 

HEAT J 

HET I 

GOTO 2286 

REM +4 SORT TABLE ss 

FEM “HOF > 

H1=8:G605UB 15888 

REM 4% WRITE GUTFUT TAPE st 
PRINT "MOUHT GUTPUT TAPE --PRESS SPACE BAR WHEN READ’--": PA 


ee 


P=P+1 

IF Mi-@R-S@<@ GOTO esra 

GOTO é7aq 

PRINT "TOO MANY RECORDS FOR SORT TO HANDLE” 
PRINT "YOU HEED" :5@+84#R-Mis"MORE BYTES" 
PI=INTCCAL-<M1—-S#A-SG 34193 

G=IHTCA-P1+1) 

PRINT "THERE WILL BE A MINIMUM OF" SP1; "PASSES" 
FOR D6é=1 TO FR 

T#(D69="" 

HEXT D6 


* 4 
ea 


<H>CUD<G> CSCO MPM TMM ADE RED CUCKOLD II 


PROGRAM HANNE: MULTI SORT - ROSENAH «= COT BD 


@7G3G CLEAR T#(:DIM T#<Q+13 

@71G8 PRINT "REWIND INFUT TAPE AND READY IT FOR PASS"SP 

@726G PRINT "--PRESS SPACE BAR WHEN READY --"s PAUSE 

A7300 B2= 

e74aa L2=a 

75G@ L3=6 

8766G GOSUB 6saan 

O77OG IF MIDSCZ$.1,12="*" GOTO sine 
7800 B2=B2+1 

@790G IF Bit+@3A THEN O=A-Biti:Le=2 
68600 L4= 

@210G FOR J=Bi TO Bi+d-1 

@2208 L4=L4+1 

@826G IF B2=NicJ> GOTO ssaG 

@S4GG NEXT J 

Be45a GOTO 7ean 

esseaa TE{L4.=Z$ 

GS6GG LI=LZ+LEN(ZSI+2 

@879G L3=LE+1 

@880G IF L3=0 GOTC 91008 

G290G IF Mi-(440+d4R+5G4+L29<a GOTO sige 
gsaea GOTO 7eaa 

69100 L5=1 

@92GG IF LENCT#$<1))=G GOTO 16660 
G93GG Z$=TECLSD 

69400 GOSUE 65116 

99500 LS=L5+1 

@955G B=B+1 

@960G IF LEN“ TS¢{L532=0 GOTO 93ae 

S965G IF L5>G@ GOTC 9eee 

G976G GOTO 33aG 

@986G IF Lé=2 GOTO 16180 

99900 B1=B1+L5-1 

99916 FOR Dé=1 To +1 

99920 Té<Dé>="" 

G993G NEXT Dé 

@994G P=F+1 

@995G IF BISA GOTO iciaG 

1600G GOTO 71aG 

1GG6@ G=0-2 

1G87G P=P+1 


SHe<u> 


PROGRAM NAME: NULTI SORT - ROSEMAN < CONT“D > 


lesa 
LAE Set 
1&1 ee 
Lazo 
1Bzag 
16466 
16588 
1660e 
1a ae 
Lesee 
Lasec 
11496 
1118G 
11266 
11256 
11235 
11368 
11466 
1156 
11556 
118ee 
1irea 
12668 
12168 
12266 
i2Z2oG 
12406 
12266 
12686 
2° Ge 
12808 
12968 
13868 
13168 
13266 
LS388 
1586G 
13166 
135208 
LS 388 


15466 


PRINT " REDUCED To"sa 
GOTO Fae 

ie nM eK u 

GOSUB B5118 


PRIHT "EHD OF SORT. REWIHD ALL TAPES" 


PRINT As"RECORDS INPUT TO SORT"SES "RECORDS OUTPUT" 


END 

REM ssekSHIFT RTH tetet 
TiF=TEC I) 

TH$LID=THECTS 

TSO IO=Tis 

W6=H10To 

Mit Jo=Hicdo 

Hix To=v6 

Fi$=F2$ 

FPe= u Ft W 

RE TUR} 

REM te FIHD FIELO RTH sate 
FRt= mae 

IF LEM T#tto0=8 THEN RETURH 
T=8 

Ti=1i 

IF MIDEXTECG9.T1.19="-" GOTO 12308 
T1l= a 

GOTO 12888 

T=T+1 

IF T=L GOTC izeae 

GOTO 121668 


T1=Ti+t 
FSS=FS$+MIDS(T#CQ9,T1. 19 
T1i=Ti+t 

IF TISLENST#$<02> GOTO 13200 


IF MIDSeT#CG2.7T1,.19="-" GOTO 13208 
GOTO 1i27ee 

IF S=1 THEM Fit=Fi#: RETURH 

F2$=F S$: RETURH 

FOR I=1 Ta H 

Bel, i13=1 

NET I 

Bia. 29=F 

L=1 


att 


CHe<U> 


* 


£G> <SoHOPKFo< TPA WCAC ROE 


PROGRAM NAME: MULTI SORT - ROSEMAW < 


15500 
15600 
is7aa 
15800 
15900 
15950 
16800 
16106 
16206 
16306 
16466 
16500 
166068 
16706 
16866 
«16906 
17600 
17140 
17366 
17 4aG 
17500 
176aG 

7616 
17613 
17616 
17619 
17626 
17638 
17650 
1766a 
17676 
17700 
17800 
1756 
17300 
1saGa 
18140 
18200 
18300 
18406 
12506 


Hi=1 
N2= 
IF WNi=N2 GOTO 15986 


GOSUB 16566 

IF L=N THEM GOSUB 19468 
IF #1=1 THEH RETURH 
GOSUB 13188 

N1=BCL. 1) 

N2=BtL.2> 

L=kK1 

GOTO 15786 

REM at SUBROUTINE SORT ac 
FOR I=Hi TO H2-1 

Fix#=" ity 

G=T 

5=1 

GOSUB 11566 


FOR J=I+1 TO H2 

F2¢= nou 

GOSUB 11586 

IF #$CL9="H" GOTO 17656 

IF WECLo="A" GOTTA 17626 

IF VALSF If o<VALSF2$> THEN GOSURB 
GOTa 1° see 


IF VAL“ FIS2°VAL“F2$>9 THEN GOSUE 


GOTO 1F See 

IF USeLo="A" GOTO 17 Fee 

IF Fit<F2% THEM GOSUE 1@7@e@ 
GOTO 1irsee 

IF Fié>F2% THEM GOSUB 16786 
REM “NOP > 

NEAT J 

NEXT I 

RETURMH 

REM cet: SUBROUTINE COUNT sett 
Q=EeL. 1) 

GOSUE 11566 

H#=F 1% 


<U>O><L? IT 


CONT “DB 


1@7 ae 


1@ree 


<HOMURKG> «<5 010< 


PROGRAM NAME: 


136868 
1s7e 
Lesa 
1968 
13868 
13188 
13286 
19266 
19486 
135G8 
13688 
1978a 
19866 
i996e 
658668 
65818 
65828 
S5HS8 
SSe4e 
65856 
E5868 
ater] Sa 
BS 838 
BSe9E 
65 188 
L1G 
65115 
65128 
65125 
65136 
65148 
65156 
65168 
6517 
65138 
69196 
65268 
652164 
65226 
S528 
65246 


oe — ee) 


Bo 258 


CP OST SAW PCASK ROSES 


MULTI SORT — ROSEMAH 


~ 


G=O+1 

IF @>BCL-1.2) GOTO 191648 
GOSUE 11568 

IF H$<3F 1 GoTa 
GOTO 15666 
BCL. 2 9=0-1 
Ki=L+1 

RE TUR 


1918e 


REM ae SUBROUTINE BACK st 
L=L-1 

IF L=@ THEN #1=1:° RETURN 

Bel. 1o=BtlL, 2 y+1 

IF BCL. 1>>BCL-1.2) GOTO 195e@e 


RETURN 

REM sete TAPE READ RTH tact 
POKE 17999.177 

POKE 1°991.1 

PORE 8192.FM Leno 

POKE S193.FH UrMo 

==USR «ED 

EF= mouF 

FOR 2=M+i Ta M+PEEK SM? 
2$=2E+CHRF (PEERS 2) > 

NEXT 2 

RETURH 

REM tt TAPE WRITE RTM sett 
PRIHT 2% 

2G=LEHtS#2 

IF 26=@ THEM RETURN 

PORE ff. 28 

FOR 2=1 Ta 2& 

POKE tM+<c, ASCCMIDS( 24.2213) 
HEMT 2 


991.1 
92,FH tM 
PORE SiSsS.FH Utho 
POKE S212.FH Lt2> 
S213.FH ULss 
2=USEt G3 


RETURN 


1 
i 


7 
a 
ry 

io to ee 


eNe<Oest> II 


< CONT’D 


tm 
ted 
“J 


CHSCUPKG>  < 


PROGRAM HAMNE: 


G6G1G@ PRINT 


BGE28 
6GG21 
BGG38 
Bea4a 
GG828 PRINT 
GeG6G FRINT 
H MACHINE” 
BEB" PRINT 
E USER TO" 
S688 PRINT 
OL THE HS" 
GHe9a PRINT 
GE. AND" 
@61G@ PRINT 
SEC .” 
@@11@ PRINT 
HOTAT ION" 
6612@ PRINT 
G@13G PRINT 
Tigh: -* 
G@@14@ ALlg=" 
GB1i5G PRINT 
G16 PRIHT 
AS1C” 

GG17G PRINT 
H. BASIC” 
66136 PRINT 
PPER" 

@6196 PRINT 
e268 PRINT 
GH TAFE” 
66210 PRINT 
IMAL >” 


PRINT 


PRINT 
PRINT 


SoOMP HM TPCMSCARCRECES SUD OR<LD 


MINIBUG — HORHE 


TABS SG0e"NIHI BUG S&S": GOSUB r?a 
TABC2693"BY D.F.HORNE 7-75" 

sLINE INPUT " DO YOU WANT INSTRUCTIONS + 
<IF D$="H" THEM GOTO 36e 
" MINI BUG & IS DESIGNED 


Wet — “spb 


Ta AID IH EXPERIMENTING WIT 


" LANGUAGE . IH THE COMNMAHD MODE MIHI BUG & ALLOWS TH 


" READ OR ALTER MEMORY. CLEAR FIELDS QF MEMORY. COHTR 


" FRONT FAMEL DISPLAY. RUN PROGRAMS IH MACHINE LANGUA 


" EXPLORE MODIFICATIONS TO “EXTENDED BENHTOH HARBOR BA 


" WINT BUG © ACCEPTS EITHER DECIMAL OR OFFSET OCTAL 


" AHD CAH BE USED TQ COHVERT FROM OHE TO THE OTHER .” 
*FRINT TAB Fos"- VOU ARE LIMITED OWLY BY YOUR IMAGIHA 
PUSH THE “SPACE” BAR TO CONTIHUE" 


SPRINT Als: PAUSE 
" MIHI BUG & 


*PRIHT = PRINT 


USES THE “USRC>”’ FUNCTION OF EXTENDED 6 


" AND REQUIRES THAT YOUR PARTICULAR VERSION OF EX. B. 


" BE COHFIGUEED TO ALLOW FOR NENOR'’ SPACE ABOVE THE U 


* BIMNIT GF Es. BaHsBreie .* 
" IT 15 SUGGESTED THAT ‘VOU COMFIGURE OUR DISTRIBUTI 


" WITH AM UPPER MEMORY LIMIT HO LOWER THAH 23°88 <DEC 


m 
ted 
mc 


CHOLUSKG> SMC F OM TOMMDKADERECED «<UDKORCLE TI 


PROGRAM MAME: MIHIBUG - HORHE 


B6E226 
HE u 
66238 
PIED & 
Be2468 


PRINT " A 16K SYSTEM COMFIGURED AS SUGGESTED WILL PROVIDE T 


PRIHT " USER WITH APROA. FSG BYTES RAM ABOWE THE SPACE OCCU 


W n 


PRIHT " EX. B.H. BASIC AND MIHI BUG 


or 


FOR MACHINE LANGUAGE P 


ROGRAMS” 


SE256 
Ba266 
CPERAT 
BE278 
SG28 
BG298 
Bese 
GG218 
GE326 
GAZI 
a] nh 
BeS4h 
BaZoe 


ma Tr mS me me 
Ty re Ce ae 
", Pe ds 42 ’ 
ant 
ct 


426 


AGA SG 
Ge44e 


Gets Set 
S468 


oe mn 
mr ie wee 
fe 
O13 
m 


aG526 
BESTS 


Bed & 


PRINT = PRINT ALSIPAUSE i PRIHT i PRINT 

PRIHT TAB CG2S"ENTER THE FOLLOWING CODES FOR THE INDICATED 
ITOH" 

PRINT 

PRINT “ ZERG - CLERES A FIELD GF MEMORY” 

FRINT " OD - CONVERTS OFFSET OCTAL TO DECINAL NOTATION" 
PRINT " DO - COHMERTS DECIMAL TO GFFSET GCTAL HOTATION” 
PRIHT " LM PROVIDES A LIST OF DATA IH MENORY" 

PRINT " AM - ALLOWS USER TC ALTER DATA IW MEMORY" 

PRINT " G0 ALLOWS USER TO RUM A MACHIHE LAHGUAGE PROGRA 


PRINT "  H& FERMITS CONTROL OF H& FRONT PAHEL DISPLAY” 
PRIWT 

FRIWT @*LIHE INPUT " DESIRED OPERATION 7 ~ "30% 

IF O$="2ERO"THEN GOTO 1°se 

IF OF="0O0"THEN GOTO 

IF Of="D0"THEN GOTO 

IF O$="LM"THEH GOTC 

IF OF="AN"THEH GOTO 

IF O€="GO"THEH GoTo 

IF OF="HE" THEM GOTO 
LIHE IMPUT ” bo Ou 


i 


be be ek 


whoa CM ted Ra 
0 ts CA Ga mr 


We a TEE 


_ 


HEED THE LIST OF COMMAHDS +? WAH = 


IF @13="" THEM GOTO 266 

GOTO 388 

IF B&="O"THEN GOTO See 

IF YALL TS9>655235 THEN PRINT " ERROR - HOMESISTENT HUMBER” 
IF LEFTS*T#.19="-" THEH PRINT " ERROR - HEGATIVE HUMNEER” 
RETURH 

E$=" ERROR IH OFFSET OCTAL HOTATICH !":cC=1 

IF MIDELT#E.4,.129="." THEN TE=LEFTS¢7T#, 35+" "+RIGHTS( TS, 39 
FOR ISLencia> tT 1 Sibr =i 

VI=VALCMIDSC Ts. T.1o3 

IF MIDSLT#.T.29=" " THEN Y=iiC=C~1 

iP Wie? THEN PRINT ee 


BE 3 


qi 


SHeiUenGe “SIPC USt Pei SeU ARES AVEC OD 


PROGRAM HAME: MIHITBUG - HORHE < COHT“D > ww 


BESS IF C=3 THEN GOTO 68a 
B&S6ea IF C=6& THEM GOTO 8&6 
BeSTa C=C+1 

GG5S8 NEST I 

G@G598 FETURH 

G66ae IF Vises THEM PEIHT E¢ 


m 
re 


GOTO re 


rm 
fed 


a 

G@ Hf=" "2h=16584: T=VALCTS? 
@ H=IHTiT Hot T=T-CHeH > 

@ H=H+4S2 Ht=He+CHR EHD 

tf cat 


1S 
Em & 
(Te (Ty ty Ts 


rs 
cn. 
at Np 


aU? 
= 
mr 


BG66G IF N<1 THEM RETURH 

N=32 THEM H$=H$+" "iN=é4 
@ GOTO 636 

@ M=G@:T=1:C=6 

@ FOR I=LEH¢T#) To 1 STEF -i 

G@ HRASCCMIDS(T#.1,19>-48:C=C+1 
S 

a 

B 

Gi 


wt: i 


RMA MECN 
Ts 


mm 
af OTs 
et a. ad 
mt ee 
bed 
TY 


re 


— 


ma, 


IF H=-16 THEM T=256:C=C+1i:GoTo Foe 
IF C=4 THEH T=256 
SRS ee He Te Te Tee 
| HEST I \ 
RETURN 
‘Ye C1ig=" OFFSET OCTAL HOTATION" 
C2$=" DECIMAL HOTATICON” 
C3é=" STARTING ADDRESS 7 - " 
C4$=" 15 THAT OFFSET OCTAL GR DECIMAL HOTATIOH ? OG-D - ” 
RETUEH 
PREG 7 ENTER HUMERALS IH" ste 
S PRIHT & LINE INPUT " READY -— "sTt 
& BE="P" Ss GOSua 47° 
1 GOSUB 626 
PRINT T#3" DECIMAL = “SHESJLEFTECCi#£.139 
4 LIHE IMFUT " AGAIWH ¢ Ye - “Fis 
4 IF Fi¢="" THEH GOTO 826 
4 GOTO Bée 
1 PRET «PRI? * EMHTER HUMERAL IW" sC1ié 
A PRIHT :LINE IHFUT " RERDY - “STs 
SB GOS aes 


GOS TE 


LA st 
AY 


io me te Em 
mal 


ot 


Lac AC 
bain mm 
~.J ”, 
= 
‘net 


mi 
ma 
“4 

mt AR a mr 


a Ge TE a a Chr a 
: 


m2 


mye 
$3LEFTS(C1$.1395" = "SX3LEFTSXC2$,8> 
HPUT " AGAIN 7 Yen - “GRD$ 


SHOQUPNGS <SPCOP FA TOAWOSADK ROME? <U>CKOOKL> II 


PROGRAM MANES MINITBUG - HORHE < CONT“D > 


THEM GOTO B1e 


i Reha eo 
iE APU " PO VOU WAHT TO DISPLAY A REGISTER OR MEMORY ? 


'R'THEH POKE S199. 2:G0TO 1630 
="M"THEH POKE €199.1:G070 1136 


" WHICH REGISTERS ~- AF.BC,DE.HL.PC.SP 7 = “sRF 


THEM PORE .4:!G0OTO 1128 
THEN POKE 8.6:GOTO 11268 
THEN POKE %,e:GoTO 112¢ 
THEH FORE H.iGegoaTa iisze 
THERM FORE $.&:2:607TO Liste 


TP RA Bel pap Roa bed bea © 
Ge EO ey TT 


Bi LEG " T7°S DORE - H& DISPLAY WILL REMAIN ON . ":GaTO 36a 
GiiSG PRINT : LINE INFUT " WHAT ADDRESS ? - "SMe 
Si14G LINE INPUT C4456 
Te=ME6GOSUB 476 
IF B$="D" THEN GOTO i274@ 
TS=M$:GUSUE 636 
SBONDGOSUB 628 


-iNE IHPUT Cad eH 
RUT C4$sBS 
ISI GOSUR 47e 
THPUT “ WHICH HOTATIOW DO VOU WAHT DATA LISTED IN 7 a 


" HOt HAHY GYTES TRLEST “F = “sh 


SHEMUDG? <S2C02¢F MK TOCWOCADSROXED <U2KODXLD TI 


PROGRAM HANE: MINITBUG - HORME < COHT“D > 


BiSSe IF B$="C0" THEM PRINT " OFFSET OCTAL ADDRESS - "siGOSUB 69 


ost 
pets 
t 

Re 
m 


le BS THEN PRIHT " DECIMAL ADDRESS - "Ss 
IF 68i¢="0" THEN PRINT " OCTAL DATR" 
IF Bi¢="0" THEM PRINT ”" DECIMAL DATA" 
IF B$="0" THEM S=VALOT$ 9: GOTO 1426 
IF B¢="0" THEN GOTO i42n 
FPEINT 9 SERRY 3 = "S:GOTO See 
28 C=4 
fic3eG FOR J=— To x+H—-1 
Biled4eh ITF Bé="0" THEM TE=STREECI2:60S5UB 82e 
Bisse IF Be="0" THEM PRINT Hs" - "5 
Bldéea LF B#="D"THEN PRIWT Js" - "5 
Bi4srG IF Bis="D"THEN FPRIWT FEERCI9:GOTO 13516 
Bigse TE=STREIPEERC D3 9: G05UB 62h 
Bl4o6 OE=RIGHTECH#E. 33 
BlSGG FRETHT tee 
BiSiG C=C+i:IF C=18 THEM FRINT " FUSH SPACE BAR TO COMHTINUE” 
BiS26 IF C=18 THEM PAUSE :C=i 
BLiS38 HEAT J 
GiS4e GOTO Seg 
GiS5G FRIWY «LINE INPUT CBEsT# 
Bitee LINE THPUT C4$sbb 
BLiSYaG GOSLE 474 
Bisa LINE IMFUT " WHAT HOTATION WILL DATA BE IN ? OeD = "SRIF 
BiSoe8 THPUT " HOW MANY BYTES TO ALTER Y - "GH 
Biee@a IF BS="C"THEH PRINT "GFFSET OCTAL ADDRESS - "s:GOSUB 698 
Bie16 ITF BE="D"THEH FPREIWT "DECINAL ADDRESS - "5 
Bless IF BlF="O"THEH FRIWT "OCTAL DATA": GOTO 16se 
Hlese IF Bis="D" THEN PRINT "DECIMAL DATA": GOTO 1656 
Blede FRINT "SORRY §| - "SiGtTo 266 
Biese IF Bt="D" THEM R=VALC TES 
i IF B$="0" THEN GOSUB 69 
wa TF BAGiloe THEN PRINT " THAT“S ROM —- CAN’T BE ALTERED”: GOTO 


ran ae 
Ord Oh whe 


mm 
e5 


i 
BLl4s2e 
4 

2 


11416 


feet Tt 


@ FOR J=x TO ¥+N-1 

G@ IF B$="O"THEN T$=STR#<J>:GOSUB 62@ 
@ IF B$="O"THEN PRINT H#s" - "3 
G@1feG IF B$="D"THEN PRINT Js" - "3 
Gi71G LINE INPUT " "sT# 

G@1i72G IF B1S="D"THEN H=VALCT#):GOTO 174@ 


Co mi tel mh 
at oe ae 


not OD A 


Wat: 


B 42 


SHOSUSEGS  <SPMODKF OM TOCMDKARLROCED «<URKOOKLD IT 


PROGRAS HANNE! MIHIBUG — HORHE < COHT“D 


Biya SE 
wi YS 6 THEM PRIHT "ERROR - TOO LARGE ! "s:GoTO 36a 
BiPSE FORE Tsk 


G@ivée@ NEXT J 
76 GOTO 360 
&@ PRINT <PRIHT " AY DATA WILL BE REPLACED BY vars ." 
SG LIHE INPUT CS3#:T4 
S06 LINE INPUT C4$;3B¢ 
S1G INFUT " HOW! MAHY BYTES TO CLEAR 7 - "3H 
A GOSUE 476 
IF B$="C"THEH GOSUB 696 
IF B$="D"THEN H=VALCT#) 
IF S174557HEN PRINT " YOU WILL CLEAR PART OF EX.B.H. BASIC 


pa mi 
en Co er 


a 


BiseG IF xASISZTHEN PRINT " NO! — THAT“’S PAMN-S ROM CCANT BE ALTE 
Bisre LIHE INPUT " DG VOU WISH TQ ABORT AT THIS POINT 7? YerH - 


3 
@ IF APS="N" THEM FPRIHT " -RUHHIHG-": GOTO 138e 
8 GOTO Sée 

@ FOR J=" TO H+H-1 

& FORE Je 

B HEAT J 

@® PRINT " IT°S DONE - WHAT HEXT 7 "Si GOTO 36@ 
g 

Gi 

a 

Ei 

i 

& 


aye ge Oo 


4, 
CF Se tl be at to 


ee A A Wk) 


1 LIHE IHPUT C2¢;T4 

) LINE IMFUT C4$sB3 

GOSUE 4° 

IF BS="D"THEH GOSUB 626 
IF BS="0"THEH GOSUB 638 


FEM be an Ache} 
bad Usd Ua Bat 
= 


Ue WI AC? 


iF BS="O"THEH TS=STRECKDE 
GH TS=LEFTS(HS.49°G0SUER Soe 


an < 
mt Gs! tal far & 


G@ PORE 1f26c.% 

 TE=RIGHTS CHS. 22:2 GO5UB soe 

G@ POKE 1f267.% 
2640 LIKE INPUT " DOES THE FROGRAM END WITH A “RETURN” (3115 7 ¥ 
Bee 


IF WS="Y"GOTO Sage 
iF VS="H"THEH PRINT " CONTROL WILL REVERT TO HS ! "GOTO 26 


GOTO See 
i LIHE INPUT " DO YOU WISH TO ABORT AT THIS POINT 7 YH -— "SH 


<H>CUS<GS> <S25025F Sh T PRU SKASCRIK E> SUSKORKE > 8 6IT 


PROGRAM HAMNE: MINTBUG —- HORHE 


me 
hea 
m 
1 di 


IF HF="H"GOTO 2118 


Bo 
2186 GOTO See 
2ii@ PRINT " -ta#t- TTS RUNNING -a#ee— "I Z=USRC 1) 
2126 LIME IHFUT " IT°S DOWE —- WANT TO RUM IT AGAIH ? YeH —- "SHI 


S86 IF Hi¢="V" THEM GOTO 2116 


$6 GOTO S88 


Met it de Che RY er 


had fa 


SHEKUPtGs <SEtOPc PCT PME SK RES E> <U><O><L> II 


PROGRAM HAME? CHI-SQUARE - FORSYTHE 


ma 


& REM CHI SGUARRE FOR R BY C COHTINGENGY TABLE. FORSYTHE 6-73 
THRUT "HOW MAY ROWS. COLUMHS 7°SR.C 
DIM FCR.CI,EtRs €5 

i FOR I=iToO R 

1 PRINT "ENTER THE DATA FOR ROW "sTI 
FOR J=iToO © 

PRIHT "COLUMW "as 

THPUT H 

=o Fol. J3=H 

; aah Bade 

SB=F OT. a+ 


un 


Sn MS 


are 
p28 
he 


3 FLG, 057 
4G UL=T 
SG PRINT 
6a FOR I=iTO F 
eG P=FCL, G/T 
SS PisTHT(1G0G+P+5)-14 
SPRINT "ROW "sT3" TS "SFCT.095" CASES ¢"sP13" PERCENT >" 
: PRINT " EXPECTED WALUES: "5 


§ IF U<U1 THEN Ui=U 
FRIHT i, 
Bi HEAT 
PRINT 
HEST £ 
FPRIHT @PRIHT "CHI SQUARE="sC23 
PacR-Loett—-1o 
PRINT "DEGREES OF FREEDOM ARE "5D 


PRINT "SMALLEST EXPECTED VALUE IS "st 
STOF 


B 45 
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PROGRAM HANE: EXPANSION CHAMBER - FULLER 


BGGiG REM 
@ael2 FEM 
@Ge@i4 FEM 
GGG15 REM 
BGG16 REM 
BHG1iS REM 
BeGi? REM 
BEG22 REM 
CHAMBERS. 


BEGG FEM 
LL EHABLE 
BaGS32 REM 
TLE COST 
@G@G34 FEM 
OL! HAWE 
GG@G25 REM 
UILD ONE. 
BGG3S FEM 


REM 
REM 
REM 


CG i my 
al cell eel ei eae ICM BI 8) 


Oth Beam ff mb 


Tim me mm tm Gam oc 
Ri Mm Ma mo ee pa 
D 


ca 
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ic 


ek 


SGOTO 26 


PROGRAM “EXPANSION CHAMBER” 

Vi WILLTAM E. FULLER 

IN BH BASIC VERSION @1.62.@1 

CONSOLE LENGTH = 132 

DATE: 4/HOU-S PS 
THIS PROGRAM WILL DESIGH TWO STROKE ENGINE EXPANSION 
IT WILL DESIGH THESE EXHAUST SYSTEMS FOR AW’ PERFORMA 
FROM CONSERVATIVE TO WERY HIGH PERFORMANCE COMPETITIO 
TYPES. AS THE FABRICATION AND TESTING OF EXPANSION C 
IS VERY TINE CONSUMING AND EXPENSIVE, THIS PROGRAM WI 
YOU To TRY OUT DIFFERENT DESIGNS ON PAPER AT VERY LIT 
IH TIME OR MOHEY. AFTER THE DESIGN IS DECIDED UPON 
A DRAWING OF THE CHAMBER WITH ALL NECESSARY’ DATA TO E 
WHILE TRYING WAROUS DESTIGHS, VOU MAY ALSO DETERMINE T 
TRACT-CRAHECASE RESOWMANT FREQUENCY’ AND CENTERLINE LEH 


CURVED PIFE. 


LINE INPUT "DESIGHED FOR: HAMNE ?" SHE 
PRIMT 
INPUT 
PRIHT 
LIHE IMFUT “MARE OF EMGINE ?"sHi¢ 
ABS PRIHT 

& THPUT 


>PRIWT 
"ENGINE DISPLACEMENT IN €CC’S ?'5C 
= PRINT 


PPR IT 

"DESIGH FOR PEAK OUTFUT AT WHAT RPM ?"sR 

DP RINT 

“HALF OF THE DIFFUSERS AHGLE OF DIVERGENCE IN DEG. 7 


“2 THEN PRINT “USEFUL DESIGH LIMITS 2 10 7¢.3 DEGREES. ° 


PROGRAM HANES ESPAMSION CHAMBER 


pores 


£3 


ee 
ue 
iy Th 
* 


ra “Ti ee OT 
B 
Aas 


Cua TGS 
fT 


Sa 


ek FRIET 
a DTHRUT 
a PRIHT 
THPUT 
PRIMT 
t+ PROWT 
PR IMT 
S& PRINT 
5 Peete T 
1 THPUT 
a PRIMT 
PRIWT 
LIKE 


ered THEM FRIWT 


if.6 THEM PRINT “USEPUL DESIGH LIMITS 6 


IF AZ 


THPUT 


~ FULLER 


"USEFUL ‘DESTGH LINITS 2 TG 7.5 BEGREES 
tPRIHT 


"HALF OF THE BAFFLE CONES AHGLE OF COMVERGENCE IN DE 


TO 13 DEGREES. ”: 


13 THEN PRIHT “USEFUL DESIGH LIMITS 6 TG 13 DEGREES.” 
TP RIT 
“OREM 
tPRINT 
"IHLET PIPE INSIDE DIAMETER 1H IHCHES 7” 
?FRIMT 

"THE THREE AREAS 
"TS COMSERUATIVE,. 
*S=MNODERATE. " 
"IZ=WERY HIGH PERFORMANCE. " 
Uae i Rts tld wie a Fos Fe 
*PRIHT 

"DO YOU WISH TO DO 
"CALCULAT DOH 


PERTOD OF EXHAUST IH DEG. ?7”"s7E 
D1 


OF DESIGN ARES” 


INTAKE TRACT-CRANCASE RESONANCE” 
CYAN? 2" SBS 


EY" GOTO Bae 


MPU 


“PRINT 
SQUARE INCHES ?"s2 


" PIPE LEWGTH IH IHCHES F" su 
tFRIHT 

"CRAMECASE USLUME IH CUBIC IHCHES 
sre PR TNT 
RAT 


oye 
PM gh 


MEHTERLIWE LEHMGTH OF CURVED 
"CALCULATION t¥YeHo "SRLS 


GOTO 3Bee 


PIPE" 


Ma 
» Par RINT 
one 


OF BEND IM DEGREES 


» OF BEND IH IHCHES 


ed 


PROGRF 


Lic 


tome OEE Er 
Aan 


WA 
BA, 


A iG IF &i 

a LINE. INPUT 
i IF JIfS > 

& PRGGGT 

ae FRINT 


Hoge pty 
i Ua! 
: : 


MN HANES EXPAHSIOH CHAMBER 


G GOSUB 


GOSUE 
GOB 


GOSUE 
GES LIE 


TE Bs="y" 


» PRIHT 
& PRINT 


99538 PRINT 


PRIMT 


{| PRIRT 


i PRI 


FR ITHMT 


LIT 
Pai 


PRINT 


a PRINT 


PR 


PRIN 
INT 


fe PRAT 


PRIMT 


PRIHT 


PRIWT 


PRINT 


Be Se Bes ee 


OS¢ FRM TSAWIKAPKROCE> <UEKOo<L> II 


= FULLER CONT “D > 


4G en 
4686 
aT aS 


feof fp ee a 
a 
cool 


a mem e 
mm oe Ag 


“THEN GOSUER 41488 
="¥" THEN GOSUE 41266 
"TS PRINTER READY 
Fels SEG8 

>PRINT 


CW? Pats 


THO STROKE EHGIHE EXPANSION CHAMBER DESIGH sae 
ENGIHE MANUFACTURER: 
EMGIHE DISPLACEMENT: 
im: DESIGHED FOR! "SH 


mits seeee Senta cen atten ce sore snes pentose renee som me sence sent Stunt conet ess steer treme suet seme sone seems Stans Senet cre fm steer weet sovrs ria reve wee nee sang some seeet ateee ose te me reees seer See Soe ent ee pos mee Ses See 


"SHLE 


= PRINT 
. OUTLET * 


Ire, ARE” 


ee a eee re 2 ee ne tc ee a ee re Sede 

" t cn Pra 

HS { + Ce 

" \ a + 

" ’ + + COU 
‘ CLF 2 So +" 

u i a Pee 

WU : oe a me wel 
! * “we 

u ! + had 

" ; * oh eto ee ee 

ai 
" oe a 
Eu 
n : : a atk 


ay 
co 


<HOCUDMG> CS 02¢F CM TOMWKADKROCED §«<U>KOOCKL? TT 


* PROGRAM HAME: EXPAHSION CHAMBER -— FULLER 


yu 
16156 PRIHT ” ! + 
tu 
16166 PRINT " i + 
FFLE CONE ARERR? aN 
16176 PRINT " ! Ke 


238 PRIHT " : a eee ee cd 
ph 
las4ea PRINT ” ! +: 
ok in 
ig2s@ PRIHT " : + 
" i i 
i@26G PRINT "-------- He------- a ee lw 


— 
ig2rG@ FPRIHT " ! ! + 
Pan 
i@zsea PRINT " : ! * 
aga? 


1@26@ PRINT " : i # 

CHAMBER AREA?” 

1@S1ieG PRINT " ‘ CLS? *€ 
a! 

1G32@ PRINT " bo me Do 
+o ————= D2)" 

1@338 PRINT " ! He 
*&" 


xs 


fHe<u><G> 


PROGRAM WANE: 


iG@34@ PRINT 
od n 
18356 PRIHT 
eK u 
iG36G PRINT 
—" 
1@3re PRINT 
ME a” 
1G38G PRINT 
*" 
1@39@ PRINT 
*" 
1G466@ PRINT 
1K ” 
iG41G@ PRINT 
ea u 
ig426 PRINT 
Ra u 
i@43@ PRINT 
py it 
1644@ PRINT 
* it 
16456 PRINT 
i@46@ PRINT 
“DIFFUSER 
16476 PRINT 
ig4se PRINT 
ig43G@ FRIHT 
1568 PRINT 
16516 PRIWT 
1@5286 PRINT 
16236 FRIWT 
ies4ea PRINT 
igl36 FRINT 
16368 PRIHT 
iGi7a PRINT 
iGsee PRINT 
1@596 FRIWT 
18666 PRINT 
=(D12" 


igéiG PRINT 


EXPAHSIOM CHAMBER 


me ee ne te sae eee eee 


! ok 

: * 
en ee Se 
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: AHGLE Al 

! el a y 

flo oe 

! # 
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! Be 

! + 

: Ba 

: BS 

: Bo 
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: Ee 

! + 
Soe Wee ee 

: +t 
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: + 
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PROGRAM HAMNE: EXPAWHSICH CHAMBER - FULLER < CONT’D > 


jae 
ma 


PRIMT 
PRINT 


ee es 


gi Ki oo em As Wes me 


PRINT 
PRIWT 
PRIHT 
FPREIHT 
FPRIWT 
FRIHT 
PRIWT 
PR IT 
PRIWT 
PRIWT 
CHTREL 
PRINT 
12258 FPRIWT 
12368 PRINT 
OREES..." 

L2SSe PRINT 
GREES, ” 

iZ46e PRIHT 
Le4ha@ PRINT 
12568 PRINT 
{2558 PRIHT 
12606 PRINT 
12625 CHTRL 
12658 PRIHT 
12°88 PRINT 
L270 PRINT 


AC wo oo mo LA 


ee el oe a 
RR OS OR OO CN CN A 
ee ee Re Os OT Oy ty Ts oe os Ts 


tect 


Noma ih ¢ 


fr. 
ae 


i288 PRINT 


208 TF Bs< > 


12368 PRINT 
2908 PRINT 
L3866 FRINT 
iSGS8 PRINT 
23168 PRINT 
12icsG@ PRINT 
13155 PRINT 
13266 PRINT 


i3Zz2e PRINT 


: : ‘ # : #"M 
” ! ' * . Ro 


TIPE. AREA?" 


: ! a ' 4" 
" } 4 + Pe 
4 ! : +: ' age? 
" t ' 4: Ff Pra 
rope a Horo e Bottom ton Se HE ee eae 


L THLET” 


?PRIWT 
3. 38 


"LENGTHS. ". "DIAMETERS. ” + "ANGLES. is 


MLI="SLiz" INCHES. "."D1="sD13" INCHES. "."al="sA15" 
"L2="5L25" INCHES."."DZ="3D23" INCHES. ". "A2="5A25" 


"L3="3L35" INCHES. "."D3="3D3s" INCHES." 
"L4="3L4i" INCHES." 

n ies a ae eit IHCHES Ps un 

"Lé="3L6i" INCHES.” 

yp vu feat eit THOHES is " 

3.14 


"MOTE 12 TUNED LENGTH IN INCHES ="sL9 
"MOTE 2: THE DISTANCE FROM THE BAFFLE CONE’S INLET 


uy HEAM POLHT GF REFLECTION ="SLSs" INCHES.” 
"es" GaTO LSssee 


"THTREE TRACT-CRANKCASE RESONANCE DATA: ” 


BD csewe onere seets snes couse srver set scum cvven sever ues sess sates crows snuae sveye stsch S61ds Bite sists stess see ou coset tnust cums cane Gttse emee sores erry vores eves mess mms ows cmos BD 
St Se Se ie oo So Se Gn ie So te So Se Se le ee oe ee ee Se ee me eS ee SE 


“CRAHCASE pleated ="Shie" CUBIC INCHES.” 
"THLET CROSS-SECTICHAL AREA ="s23" SQUARE INCHES." 
"IHLET FIFE LENGTH = "sits" ITHCHES. ” 


CTH 


DE 


DE 


TO 


"HOTE 1: THE ABOVE VALUES WILL RESULT IH A INTAKE TRA 


: CRANKCASE RESONANCE OF "S25" HERTZ“SEC. " 


Be 3 


PROGRAM HANES EXPAMSIOM CHAMBER ~- FULLER < CONT“D > 


1S225 FPRIAT QF AT 
1S5GG IF Bige2"Y" GOTO Saeee 
ISS PRINT 

iZ6ese PRIHT "CURVED FIFE DATA:" 

Tossh PRT Ueeloe aS Sse 

1SY88 FPRIHT "AWGLE OF CURVE IN DEGREES =" 
LSPSe FPRIHT "RADIUS OF CURME IN INCHES =' 
i3sGe PRINT 

13856 PRIWT "HOTE i: THE SECTIOWN OF CURVED PIPE WILL HAVE A CENTE 
RLIWE” 

issea PRINT ” LEHGTH CF "SéSe" IHCHES. " 

14666 PRINT * PRINT :PRIWT 

SSE EMD 

SHGGE Los. 1] TREE IR 

Sasa RETURM 

$Gige IF FP=1 THEM L3=Dbi+tld 

SHiSG@ IF FPe2 THEM La= i+. 3 

S8268 IF F=2 THEN La= D168 

$8258 RETURH 

46366 DS=SCR CCG. Sen Ditais 3 

SH358 RETURM 

sh4ee IF F=1 THEM D3=Dl+,62 

$8456 IF F=2 THEM Di=Di+, 6a 

$8588 IF FP=3 THEN bS=bi+, ae 

$8556 RETURH 

4HB8R LYaDRelo 

$8638 RETURG 

$8788 Tl=ie co TAHe Ale Sr. 29699) 

SGP 8 Las Tle ocDbe-Dilo-2o 


4906 RETURN 

4885 LZ=1/0¢TANCAZ-S7. 296929 
4098 LZ=124(Dz/2) 

49950 RETURH 

41608 LISLI-{L2-2) 

41056 RETURM 

41188 LS=L1i-<L3+L4> 
41156 RETURM 

41288 L6=124¢¢D2-D39-2) 
41256 RETURN 

41368 LO=<CcDZ-294"12)/2) 
41356 RETURH 


B SZ 


PROGRAM MAME: ESPAMSIOH CHAMBER 


ae art tore) ae 


RETURH 
Z3=RS+RG*. G17 45 


RE TURE 
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= FULLER 
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FROGRAM MAME: MULTIPLE FILE MAWAGEMENMT - HICKS 


BEELA REM BEAR HEE HEHE HE RR EE ER EE ER ERE EEE ER 
BOS AS OS OBS Ot OR Os OB Ob obs od 

GGe2G FEM MULTIFLE COLUMH FILE MANAGEMENT PROGRAM 
GaGa FEM SE EE EEE EEE EE EE EE EE EE 
BS ss oh os os os ots oi 

REE4E REM WRITTEH BY: MILTOH K. HICKS 3°73 

SGG58 REM 222 PACIFIC AVENUE 

BBGEa REM LUNG BEACH. CA 38S82 

BGGra REM 

BEGG REM USIHG: H&S -EX.BASIC VERSION 16.82.61 
BGLGG REM 28K MEMORY 

GeL1G REM HS - H36 PRINTER “OPTIONAL? 
S@1i26 FEM 

GGALSG FEM shshsboessse EEE RROD SECEEE EEEE EEER E EE EEER E  eo 
thse oe de sR HE 

SGida@ REM HEW PROGRAM IHSTRUCTIONS 

GALSG REM sss EE ER ER RE EEE EE EE EE EE 
siskiskok se oe sk ee 

G@4166 GOSUE SHEE: REM ..CLEAF SCREEH 

BGira CHTRL 4.14 

SGi9@ LINE IHPUT "HAWE VOU WORKED THIS PROGRAM BEFORE?Y <YES-HO> " 
sAE 

BGSHG IF ASCOAP=Fo THEN GOSUR See GOTO She 

GG21G IF ASCiCAss=89 THEN GOSUB Lleeee:GoTO 258 

@G226 PRINT <FRINT "“HUH?? THATS NOT A AVES? GR <HO> ANSWER!) 
BBZSG PRINT "PLEASE RE-ENTER THE CORRECT RESPOHSE: "iPRIHT :GOTd 1 
36 

BE2ZS5G PRINT tPRIMT "ET WILL HOW DELETE ALL OF THE FPROGRAN FROM MY 
NERORY 

G@H268 PRINT "THAT WE HAVE COMPLETED THUS FAR.”": PAUSE 1ee@e 

GH2PE PORE SS62.850 PORE SSe3.F°S°FP0KE Sie4.12: REN ..UHLOCK 

BG2SG FORE S385.685: FORE SSQ6,83:PORE S387. °e:REM ..DELETE 

GBS9R PORE 8389.57 °FORE 8389.40; FORE S318,.45:PORE S311.438: REM ..9 


BESEG FORE SAiS.44:P0RE S31 3.49: PORE Sh1i4.49:POKE S315.4¢:POKE 32 


»iSfREM ..11466 CR 
TSIPOKE 8321.73: POKE S322,1355REM ..C 


1 
me 
te 
fo 
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a 
[mea 
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TI 


m 
mite 
Ieved 
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SiG PORE S381.21 
S SOF 


Go tm 
mo me os 
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Li 


U2G> <Se<OecF oC TSMWSKAS<KROKE> <USCORKL> TT 


PROGRAM MANE? MULTIPLE FILE MANAGEMEHT - HICKS < COHT<“D > 


GG488 
Her spirit se 
BES Le 
ea42e 
desks 


Ca ms 
i) 
“oat” 


mab ee kat a 
“JO 0 fe 


th 
ane 
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sy at 
Ls. 


CALA LN LT LA or Oa oon 


J O2 —) ON de oe) ba ee 
Dem) 


mh 
fe 
re (a mo 


Mad (Gre ape a ae ee 
Wm mR a hr mh a 


-—, 
he 


ee = ms 
cE ACM Oc ON OC 


xt 
7 

wt, Wat 
Lit 
aa 


Pry 


mo 
mm & 
id tb 


mi 


REP) stotbok oc GEE OR ee es SESE EE RE oe 
Ee 

REN IHITIALIZE NEW PROGRAM 

fe E hy SRR SR oR oh ERR EE EE EEE EE oe eo ee ee sa ok 
shook oe 

GOSUB SHEE: REMN ..CLEAR SCREEHM 

LINE INPUT "TITLE GF YOUR NEW PROGRAM? "STS 

PRIHT =PRINT t+ INPUT "HUMBER OF COLUMHS DESIRED? <1-2@> "SH 
H=INTenoi iF Wee AWD Hel THEN 5ae 

PRIWT iPRINT "HUH?? THAT’S HOT A NUMBER BETWEEH <13 AND <2 


PRINT "PLEASE RE-ENTER VOUR DATA: ":GOTO 458 


GOUSUB See: REM Sayroen SCREEEH 
N=N-12REM | COMPERS FOR USTHG “@° TH ARRAYS 
DIM Tetho. Tens. Bee oe ifiais 
S=G:°F0R A=GTO H 
PRINT "TITLE FOR COLUMH #"3A+13 
LINE INPUT “2 "“STScrA> 

S=S+LEHi Tei Aa gt HEAT Ai 

S=S+2H 
BOSUE — bie . CLEAR SCREEH 

UR COLUMH TITLES. WITH 2 SPACES SETWEEN THEM, T 


i PRINT oe oF RCES. IF THIS EXCEEDS THE SIZE OF YOUR FRINT 20 


i 


P PRINT "YOUR PRINTER OR MOHMITOR. YOU WILL HAWE TO RE-ENTER T 


LES" 


1 FRIHT “ITH ABBREVIATED FORM TO REDUCE THE SPACES USED.":PRIN 


40 PRIHT ¢LINE INPUT "IS YOUR SPACING OKAY? <VYES-HO> "SAS 
(OIF ASCSASO=S9 THEN GOSUB Shee: GOTO 6c 
IF ASCLAPI="S THEM GOSUB See: GOTO 5368 


PRIHT «PRINT "<THCORRECT RESPONSES? RE-ENTER”: PRINT :GOTO 64 
PRI ° GRAY. HOW. ...BEFORE WE MARE AM’ PERMANENT CHANGES 


PRINT "PROGRAN....LET°S ENTER OWE ROW OF DATA FOR YOUR PROG 


Rel IN” 


ibs 


HW PRINT "GRDER 16 SET THE THB SPACING AND PRIHT THE RESULTS.” 


z EMTER THE TOTAL MUNBER OF SPACES IN THE PRIHT 20H 


PROGRAM HANES MULTIPLE FILE MANAGEMENT - HICKS 


G72 PRINT "WANT TC USE...H9 15 (6@] OF LESS. IF VOU HAVE A PRI 
HTER. " 

Ga7SG PRINT "IT WILL BE THE FAFER WIDTH UP TO A MAXINUM OF [132]" 
iPREINT 

Garda IHPUT "TOTAL SPACES = "se 


G7 SQ HSIWNTONOS IF Ae=S AWD Ae =132 THEM *3e 

BGPEG FRINT :FRINT "YOU HAVE ENTERED A <WROMG HUMBER? THAT IS EIT 
HEF TOC" 

G@G7PG FRINT "LARGE GR SMALLER THAN YOUR COLUMH TITLE SPACES. "PRI 

HT 

GG7SG PRINT "PLEASE RE-EWTER THE INFORMATIOH. "' PRINT ? PRINT =GOTO 
rig 

Baro REM 

GHSHG GOSUB SBEGI REM ..CLEAR SCREEHM 

GaS1G PRIHT " WOU HAVE -"se—-Sa"-“SPACES LEFT ON YOUR PRINTING A 

REA TO" 

QGS20 PRIHT "ALLOW FOR OUR DATA TO EXTEHD BEYOND THE LENGTH OF 

OUR” 

GES3E PRIHT "COLUMN TITLES." 

BESSa FPRIHT ° THIS PROGRAM WILL AUTOMATICALLY ADJUST THE TAB 5S 
ETTINGS” 


GGS50 PRINT "OF VOUR COLUMNS IM THE FUTURE. DEPENDING ON THE LENG 
TH OF Your" 

GGS8G PRINT "DATA ENTERED. 50 VOU WILL NEVER HAVE CVJERLAPPING COLU 
MMS. BUT" 

GG8TG PRINT "VOU CAN RUM OFF THE PRINT ZOHE IF VOU! ARE NOT CAREFU 


BPRINT Chua ric TRBUPERSEPAHT oe FILE DATA. DETERMIN 


Ba386 PRINT “APPROSIMATE “MAS INUM’ SPACES DATA WILL TAKE UP IN EA 
CH COLUM" 

HE91G PRIHT "AD. AS YOU EWMTER THE DATA OF THAT COLUMN. ABD SPACE 
S APTER THE” 

a i PR "DATA UP TO THE COLUMN WIRTH YOu WANT." 

a ; THE INITIAL TAB SETTINGS WILL THEN EE SET." PRIN 
ba 


fi 


Bode ana "<PRUSES” S2PAUSE ! PRINT 

atl SHGEI REM ..CLEAR SCREEH 
ERINT "HERE WE GO. « . "SPRINT =PRInT 
4 ELSSIPOR A=@Ta 
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i 
C i} 
8 | 
Bens 
ee 
4+ 

* 
om 


47 TSCRSS5LIHE THPOT "9 “303°. P 2 
LEH® CECA. PO Sf =LENS TS¢Ao > THEM TYAS =LEHCT#2 A o+2:G0TO 142 


LEH CCEA. PISSLEMCTS(Aos THEN TiAD=LENCCS* A, Pd o+2 
Sa Tit, AD-LENE TELA 2H 

t TABS So 3 3h Sis"SPACES LEFT"SHERT A 

47 "MERTFICATION GF DATA ENTERED! "PRINT 

A=8 TO He PRINT CEC. POtHEXT AS PRINT 

A ~iS DATA CORRECT? <VES-NO> “srs 
THEM PRINT "## REJECTED ##":GO0TO 35@ 


So OM pea be tf 


Te ae on 
fe joke oid a] 


“Bete O° TED WD Ly 


id So THEM P=F+1:5=51:°60TO 11e@ 

a lM "es TMPROPER ENTRY > RE-ENTER’? FRIHT :GOTO lease 

8 Bost -. CLEAR SCREEN 

a PRIE FAK 50 GOOD. IF YOU PLAH TO USE A SEPARATE P 


mn OO 


L128 PRIET “LEASE SURE IT I5 TUERHED ON ANE READY TO Ga." 
Ail PR tP RIE PAUSES" SIPAUSE = PRINT 
ii4e f S BEE GOTO lice 


pay ai (oh 
eb at Wind 


CTS2¢295TS 
CHRP C420 2°HEXT AS PRIWT 
TECAISPCe TCAD -LEHMS TEC A -1LS2HERT AS PRINT 


S*PRINT CHRSi4293°HEXT At PRINT 
*PRIHT CHA. Qo SPOCOTCA LENS CE (A. G9 O-1LOSSNERXT ASP 


RIHT ©G0TO 1238 
iT Bind . RETURH TO COMNMAHD NOMITOR 
S PRINTOUT WHAT VOU WAHT? <YES-HO> "SAS 
1388 
oa . 7 i2ra 
IMPROPER ENTRY? RE-ENTER" SPRINT =#GOTO 1236 
"OEY THE BEST THING TO BO I5 START QUER FRO 


BEGQIHHIHG. "iCLERR !GOTO 438 

‘REM CLEAR SCREEH 

THANK YOU> I AM PLEASED IT WORKED OUT. PLEASE 
i THE TRAE SETTINGS ARE CHOT] PERMAWEMT. BUT WILL 


RUF DATA EMTERED HAPPENS TO BE LOHGER THANH WHAT HAS 


Bor 
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@it4e 
[Sh tear 


PRIHT "UP HERE...50 BE CAREFUL. "PRINT 
PRINT " IT WILL HOW DELETE THE EXTRAHECUS PROGRAM MATERIA 


: WE HAMIE 


a4 ore 


Seaae 


ft fa ted tol 
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ted Bo ee 
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FRIHT “GOHE THROUGH. C DATA WILL BE RETAINED J":PRINT 
PRIHT "<PAUSES"ssPAUSE =PRIHT 

PORE S382,.60:°PC0KE S383.89:° FORE Si@4.76iREMN ..DELETE 

PORE S265, 52°PORE S2@6.45:°POKE S267.44°REM ..48, 

FORE S38S.49:P0KE S3@5.32°P0KE S31G.57:PORE S3311,.48:REM ..1 


PORE & 
PORE os 


oy 
3, PLIPCKE S314, 79: P0KE 
POKE S216 


S3iS.84:REN ..GOTO 
\49:PGKE S317. 53:P0KE 831g. 


4S°FO0KE S319.43°REMN ..1 


FORE Soe. 1s 

PORE 1,675 FOKE S222. 79: PORE S323. 7S:REM ..CONTIHUE 

PORE B3ra y iStPORE oSel. 2s 

SOF 

GOSUB SEES REN ..CLERR SCREEH 

PR TR] sheesh es SEE SE SEE ESE SEE HEE EEE EEE ME EE EE OE ee 


reeks: ? 


PRINT © COMMAND CPTIONS" 
- fe af t4 Ti U desks se eR ME Re oe oe ee ee dE Ee Ee ee ee oe 


sheesh 


PRINT 
FRIHT "Cid ADD DATA {[6] “GET” DATA FROM TAPE 


FRINT “t27 DELETE DATA E¢d “PUT° OATA TO TAPE™ 
PRIHT "£39 SORT DATA" 


3 PRINT "£41 FULL PRINTOUT" 
$3 PRINT “C53 PARTIAL PRINTOUT” 


PRIWT sTHPUT “ORTICWN HUMBER? "FA 

ARETHTCRS: IF ASE AWD AG THEN 16se@ 

PRIWT iP RIHT “US INFROPER ENTRY? RE-EHTER" © GOTO Lace 

CHL A GOTO lPee@. loa. SEAS, Te, 2G, 4608, 4508 

GOSUE SERBS REM J. CLEAR SCREEM 

PRT HT oS sestsesh so SESE EE EEE EE EE EE EE EE EE EE EE EE EE RE ER 


siseboke: U 


FRINT " ADD DATA Ta FILE” 
PRE TPT  seshsichsksed sk ee se AE EE EE SESE EE EE EE EE 


sobre 9 


PRIWT 


mm 
th 
te 


SHOU GS “SPS GFAP AT PCW PK AS ROMS <USKOSKLS 8 6IT 


PROGRAM MAME: HULTIPLE FILE MANAGEMENT - HICKS < CONT“D > 


G17SG PRINT "TO ENIT....ENTER “STORY ":PRINT 

SH FOR ASGTC He PRINT TECADS 

LPP@ LINE INPUT "? "SC#CA.POfTF LENCC#¢A,P99<1 THEN 173 
L780 IF CECA PI="STOP" THEN 150G2REM ..RETURM TO CONMEN 
iPSG PRINT isHERT AsPRINT 

18GG FOR A=@ TO MiPRINT C#<A,P2!NEST Af PRINT 

# LINE INPUT "__IS DATA CORRECT?__<VES-NO> "SAE 

(IF ASCCAS2=PS& THEN PRINT "#4 REJECTED ##"°:G0TO 1746 

IF ASCiA$2=89 THEN 1e5e 

| PRINT i PRINT "<IMPROPER ENTRV> RE-ENTER’ :PRINT :GOTO 1966 
AG FOR A=GTO H 

IF LEN Cia. P39 >TMR9-2 THEN S=S+LENCCS¢A. P224+2-TeADrGOTO 12 


a © 


D 


ROA 8 CPO 


re i 
ee pes ee 


my 


ee 


Hi 
APSLEHCCECA. PD 3+2:G0TO 187a 
POOSUR SAREE GOTO 1Fae 
SeGE: REM ..CLEAR SCREEN 
Bites ve MEME Me Me Mee ee se ee ee i ee ME EE Ee ee 


z DELETE DATH FROM FILE” 
Ube sbeebs ok oi ai ok oe ME Ee ee fe ss fe ee se de se ie ee oe ee ee ee ee Me ee eee 


"TO ERD? awe. EATER “SESS SPRATT 
"“EMHTEFR THE DATA IN COLUMH “1° TO IHMDICATE WHICH ROW" 
"WO LIAM T DELETED" 

LINE. THPUT °F “SRAEIIF LEHCAES<1 THEM 1926 
i ie Re="STOP" THEM Lie 

FOR ASB TO F-1 
IF AS. SCECS. AD THEM 2lee 
’ REM ...PFGUHD 27...HOW ADJUST LIST 
1 FOR B=A TO F-s 

Por C=adl To H 
CECC Bele. Brio 


GEGLGOTO 13oe 
(SUB SEGRE REM .. CLEAR SCREEW 


SHeeU22G> <Se<cGeck ec os 


PROGRAM MAME! MULTIPLE 


GPPLG PRT 'sbebasseshsesestck 
seek seseshsk ce: 
Do Thy 


So Tm 


un 


Nobufsbsbokok bss 


PR LHAT 

FOR A= Hi PRIKT 

HES T As PRIWT 

THPUT “WHICH COLU 

DeIHTCD-LI:IF D2=e 

36 PRINT tPRIHT "<M 

aA PRAT <LIHE INPUT 
* IF ASCLAFS=PS THE 

IF ASCcAnss=89 THE 

FRIHT :PRIHT "<IM 
46 CHTRL 4.8 

Sn MEF 

1 AE IWMTine So: TF M=68 
J=8sk=0F-1o—-h 

f=J 

L=I+h 

IF Al=G THEM IF C 

IF Ai=1 THEN IF W 

FUR A=8TO Hi BscrR 

FOR A=GTO Hitec. 

FOR A=8TO Hi tecr, 

t=I-M 

aA IF I<8& THEM 

tae BOTG 2338 
§ IF JK THEN 2368 
GOTO BRS 

GOS LE Gi: REP 

PRINT ren merreeiry 


aT 


poner 
a2400 
G2416 


GE4368 
e246 
B2456 


PRINT 
PRINT 
ps Oe eo 
RIWT = FPAUS 
d a e=— THEM 
PRINT "MARE 


Bobb ob see ese see 
VE SBE 
GOSUB 
SURE 


S=CECA. LS 


tener «6SMSCOSKL > 6 6TT 


< 


< CONT’D 


SS 
ft 


FILE MANAGEMENT - HICKS 


Meee HEE SE EE eee ee eee ee EE eo ee 


SORT DATA It FILE” 
Hse esse e eee eee ee ee ee oe a oe ee eee cE 


"E™ SMIDSCSTRECA+19,2,193"1 "sTSCAD 


HH HUMBER Do YOU WAHT "3D 

& AWD De=H THEN 2286 

FROPER ENTRY> RE-ENTER": PRIWT :GOTO 227 
"TS COLUMN ALL NUMBERS? <YES-HO> "SA 

H AL=GIGOTO 2344 

H AL=1:G0TO 2348 

FROPFER ENTRY? RE-ENTER”! PRINT 


SORTED? 


‘GOTO 2366 


THEM CHTRL 4.1: G0TO 1586 


$0D, T94=CH¢D,.L2 GOTO 
AL CCSD, DOS =VAL CCSD, 
*HEAT A 
DSi HEAT 
*HEST A 


2486 


Los GOTO 2436 


Lo=CECA, Fi 


Tj=BECA2 


-CLEAR SCREEN 
HEHEHE ESE AAA AR ERE ERR oe ee oe ee ee ee ee ee 


FULL PROGRAM PRIHTOUT" 
Th Se oR oR ee ee ee se ee oe de ee ee Ee oe oe 


SS 
READY.» 


Seca: GAT 


PRINTER 15 -<PAUSE>"S5PAUSE = PRINT 


SHeCUS<G> <SPCORMFOATOCW SASK ROMED> <U><CO><L> II 


PROGRAM MFIME: MULTIFLE FILE MANAGEMENT - HICKS < COHT*D 


BOPORT= 254:PRINT 
IES 2-LEMCT$9°29 3 TS 

StPRINT CHR$¢4295!MEXT AIPRINT 

GC OHSPRINT T#¢A9SPCCTCA2~LEMCT#(AD 2-19 5tNEXT AEPRINT 


@31iG FOR ARG@TO SIPRINT CHRS¢42)3:HEXT AlPRINT 
G312G PRIN 


POOTAS LEMS CS OR, T29-1932HEXT AP PRINT 


166 HEAT J 
as176 FOR A=87TOQ StPRINT CHREC429 s:HEXT AS PRINT 
B31PS TF Pa THEN PRINT "PAUSES" S°PRUSE iGOTO 1380 


SoG: GOTO Lee 
»-CLEAFR SCREEN 
G PTH Np siosk seek ob oh ee de et oh oe ee i i oe ee He Eo ce i oe Mee oe ee ee ee de 


278 PRIA " PHRETIAL FRIHTOUT GF DATA” 
FRI BY spose i ie fe i oi oe fe ee ee es ee ee oe ee se ef fe pe de i Ee ee ce 


ca 


sn 


"TO EX Teas skEHTER “STOP SPRINT 

Vf a ARTO HM 

G@ PRINT “C" sMiIDStSTRECA+tio. 2.12573 “SsTSCA> 

a oHEST AS PRINT 

PRINT "WHICH COLUMH DO YOU WAHT TO USE TO SPECIFY LIMITS” 
LINE IHPUT "FOR A PARTIAL PRINTOUT? "SAE 

IF AS="STOP" THEM isee 

TF VALCA$ 2 -@ THEN LeVAL SA: GOTO 2358 

PRINT IPRIHT "IMPROPER ENTRY? RE-ENTER": PRINT :GOTO 3366 
IF Le@ AND LeAH+2 THEM L=L-1:G0TO 3376 

e GOTO 2248 

7a GOSUB SBGEI REN .. CLEAR SCREEN 

(PRINT "EMTER THE SEGIHNIHG AND ENDING DATA IN COLUMH weit 
PRINT “TO SPECIFY THE PRINT LIMNITS....ENCLOSE IN GUCGTES.... 
PRIHT = IHPUT se Liniis? <SEPARATE BY CONMA> “sLs.L1s 
+1 GOSUE SAGE: REM .. CLEAR SCREEH 

WG PRIHT "MARE Se FRIMTER IS FREADY...sPAUSES"SiPAUSE © PRINT 
~ IF 2=@ THEM GOSUER SBE GOTO 3466 

ae) Bry CET Bed RE TEE 


ATG PRT? TRECS<2-LEM.T#3-27 27 


en ees 
et 
ne: 
7 A + 
Toad bed 
oe 
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PROGRAM HAME: MULTIPLE FILE MAHAGENENHT - HICKS < CONT“D > 


G@247@ FOR A=87TO SPRINT CHRE¢ 429 2°HEXT Al PRINT 
@34s6 FOR A=GTO HIFRIHT TCR SPCOTCAS-LEMCT#( A d-1 oS SMEXT AP PRINT 


S496 FOR A=8TO SIPRIHT CHRSt425 3 °HERT At PRINT 
eohG PRINT 
Ji FOR J=8@TO P-i 
26 IF CHiL.J33=L¢ AMD C#{L.794¢=L1i¢ THEM 3556 
eA HERT Ji PRIMT 
= so oUF 6@=@0 THEM PRIHT "“<FAUSES"SIPAUSE =GOTO 1566 
BSS46 FPORT= 258:G0TO 1a8e 
BSI58 FOR A=8TO 
BSS6G FRIHT CHCA. JOSPCCTCAS-LEHC CECA, JI9-19S°NEXT AS PRINT 


cnn iy te 


= 
te 


WAM BA | 
ted ted ted ted ted 


FOR AeGtTo SIPRIWT CHRPt4205°HEXT AS PRIWT 
8 GOTO 2546 
4 GOSUE SHH REM ..CLEAR SCREEN 
t F F: if iH FO Pabseskokchok se se EE HEE SR EEE ME oe ee ee ee Ee 
dks 
B4826 FRINT " “GET” DATA FROM TAFE” 
GadGSea PRITAM]  Uxessboeseshesse se ae EE EE Eo EE EE EE Ee ee a 
fisbsbasksbbek 
BSR4h PRINT 
B4G58 LIME IHFUT "IS THE TAPE PLAYER READY? <YES-HO? "SAF 
IF ASCLAFI="S THEN 158 
IF ASCAEI=89 THEM 4838 
FRIHT i FPRINT "<IMPROPER ENTRY? RE-ENTER”: PRIWT :GoTo 4644 
PRIN? *LINE IHPUT "TITLE OF FILE WANTED? “se 
PORE S302.85:° PORE S3@3.7S:POKE Sie4.13 
PORE S265. °1LiFORE ShG6.69° PORE S307. 98IPOKE S36c.36:PORE 33 
PORE 8216.89 
PORE S311.67:° FORE 8312.79: FP0KRKE S2is.fSiPoRE S3i4.i3 
FOKE 8361.13 
STOP i60TO 1aee 
Be GOSUE SORE REM ..CLEAR SCREEH 
Shei PRTHT Usesesesbsbsb sees EE EEE ME SE ee ee EE HE ee ee 
heehee eee 
B4528 PRIWT ” “PUT” DATA OH TAPE" 
PSG PTET Uopciebskseseskopskseebee eek ee se i ee ee ee ee iE 
ps as Oe oe Ss Say oe 5 Sd 
B@4546 PRINT 


Cl tm 
oe eo 
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LIHE IHPUT "1s 
IF ASCLAPIEPS THEM 150 

LF ASCCAFI=89 THEH 45aa 

PRIMT 'PRIHT "<IMPROPER EMTRY> RE-EHTER"!FRIHT :GOTO 454@ 
@ PRINT iLINE INPUT "TITLE for FILE TAPE? "sit 

1 PORE S302. S0:PCKE G33. 85: POKE S304,.90:POKE S305. 36:POKE 23 


BLAINE TAPE READY? <VES-HO> "sed 


26°79 POKE Si85. 79° RPOKE S389. 76: POKE $316,123 


GOTO Lee 
Se RG OR GS SS Oo CO a OA a i i OO a a oon ois OR Oo OR a ede oe as sO a a a oa 


CLEAR SCRKEEH SUBROUTIHE 
SE A A EE ee ee ee ee 


Mle ARLTO L22PRIHT CHRESiBostHEAT ASPRIHT © RE TURH 
SHEER ge ee fe A tes fe ce ef ces es ct ce ee cof te cof coe a che ce cae cae ce noe nef tebe et ce at co ca tna tab ce coc cof ce bt cof ca ae cee coe epee de de fe 


BEES REP .. CLEAR SCREEH 
UU stecde de fee te he he tb he fe be ce fe es fe ee oe be ee de fe ee ee ee oe ee oe ee ee ee eee 


ae Feld " PROGRAM EDITORIAL” 
EAB RE OM pepe fe nf nfo ote oe nf i be fe fe oe op ke be be ee oe te oe ee eo eo op ee ee oe ee oe eee ee ee ee 
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“PRINT 
PRINT 3 IF YOU HAVE HAD THE FREVIOUS DESIRE TO CREATE A 


aie PRIN? “PILE PROGRAM 10 KEEP A RECORD OF ALL. YOUR CHECKS» TE 
LE = PHONE” 


"HUMBERS. OF A HUHDRED OTHER TYPES OF IHFORMATION.... 


“JO FIHD THAT EXISTING “FILE MHAMAGEMENT’ PROGRAMS FOR 


"PURPOSE RESTRICTED VOU TO THE HUMBER OF COLUMHS AVAI 


. VOU MAY APPRECIATE THIS PROGRAM. WHICH ORIGIHAT 


' SUCH FRUST ATIOWS. " 
TPR THT "PLE SESS PLS -E EPRIWT © GOSUE See 


PROGRAM WANE 


PRINT 
TA FILE" 
9160 PRINT 
THE ” 
eo17e 
CLUNH” 
3188 PRINT 
ENIEILITY” 
@919G PRINT 
COLURH. " 
9268 PRINT 
G921G PRINT 
FUR A" 
@9220 PRINT 
NAT BEFORE” 
9238 PRINT 
e924 PRIN 
@925@ PRINT 


PROT 


3 PR IAT 
a 
GS278 PRINT 


258 PRINT 


89290 PRINT 
ULB” 
G2568 RRINT 
pod wd Be ee 

@931G PRINT 
G32 PRINT 
TH FILE” 
G9330 PRINT 
oh upon 
B34 PRINT 
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: MULTIPLE FILE MANAGEMENT - HICKS < CONT*D 


ne THIS PROGRAM IS DESIGNED SOQ THAT THE USER SELEC 


"HUMBER OF COLUMNHS DESIRED <1-20> FOR A PARTICULAR DA 


"AMD THEM FURTHER DESIGNATE THE TITLE OF THE FILE AND 


COLUM TITLES. AL COMTATIHED IN AC 


rm 


"THDIVIDURL . DATA 


"IS TREHTED AS “STRING” DATA, SO THE USER HAS FULL FL 


"FOR AISSIGMING “HUMBER” OR “STRING” DATA TO A CERTAIN 


‘a THIS PROGRAM CAH ALSO BE USED AS A DESIGN TOOL 


"LARGE FROGRAM IN ORDER TO ORTAIN A DESIRED PRINT FOR 


"WRITING AW INDIVIDUAL FROGRAMN FROM 
"PAUSE S"SSPAUSE <FPRINT :GOSUE Se@ee 
SINCE THE FROGRAM IS USED TO CREATE ALL 


SCRATCH. " 


YOUR DA 


"FILES, WHETHER 2-COLUMN OR LS-COLUMH. YOU WILL HAVE 


"“MASTER” FROGRAM TO MANIPULATE THESE DATA FILES AND 


"MARE EXTENSIVE USE OF THE “PUT” AND “GET” COMMANDS © 


"ROMPUTER. RATHER THAN THE “FLOARD” AND “FOUMP? THAT WW 


"BE OTHERWISE NECESSARY IF YOUR FPROGRAMS WERE NOT THE 


4 THE PROGRAM 15 DESIGNED TCG HELP ‘OU CREATE A DA 


"PROM SCRATCH GH A STEP-BY-STEP BASIS, HEWVEVER. YOU NM 


"RUM THE PROGRAM #& COUPLE TIMES AT FIRST 10 GET THE H 


"éPAUSE>"SPAUSE i PRINT :GOSUB saae 
: <WARHIHG? CHCE YOU HAVE GCHE THROUGH THE INSTR 
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mye 
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FARTS” 
BoASoe FRIAT 
MEMORY" 
2488 FRIAT 
BS418 FRIHT 
BS426 PRINT 
BSE PRINT 
e244 FRIHT 
AVE Fi" 
B58 FRI 
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G2426 PRINT 

THE" 

G49 PRINT 

G95GG PRINT 

cm To" 
@951G PRINT 


PROGRAM” 
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Go PRINT 


A357 PRINT 
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Ga5e0 PRINT 
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HG he beet al 
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"RHD HAVE DESTGHED YOUR DATA FILE REQUIREMENTS. THESE 


"QF THE PROGRAM ARE HO LOHGER REQUIRED AND JUST TAKE 


"SPACE YGU COULD USE FOR DATA. THEREFOGRE....”* 


a ## THIS PROGRAM SELF-DESTRUCTS ##” 


"TO DELETE THESE PROGRAM FORTICWHS. SO MAKE SURE YOU H 


OF THIS “QRIGIHAL” PROGRAM BEFORE YOU GO GN !!! 


TL PAUSEO"SIPAUSE = PRINT :GOSUE Se@ae 


i WHEM VOU HAVE FINISHED CREATING YOUR FIRST DATA 


W?OU SHOULD “PUT” I] ON TO A BLANK THRE TO SAVE IT. 


"RRCGRAR HRS 
H WCHL 


A COMMAND FOR 
SHOULD THEM STOP 


THIS SEQUENCE. " 


THE PROGRAM AND “DUMP’ IT 


"RA SECOHD BLAWK TAPE. THIS WILL BECOME ‘OUR “MASTER” 


"FOR HAHOLIHG YOUR DATA FILES.” 


: VOU WILL THEN HAVE THREE*3> TAPES...¢1> THE “OR 


"PROGRAM. 829 THE “MASTER” PROGRAM, AWD ¢3> YOUR DATA 


"PAUSE >" 35 PRUSE 
i REMEMBER. 


"PRINT = GOSUeE 
THE “GRIGINAL” 


SEG 

PROGRAM SELF-DESTRUCTS 
"VOL CREATE A MEW DATA FILE ROUTIHE, SC) THE “ORIGINAL 
"EE LISED WHENEVER 
!PRINT 

: CREM 
SPRINT 


YOUR CREATE A HEW DATA FILE." 
LET“’S GET CH WITH THE PROGRAM. ” 


TCP ALISE Ss! 'EEPAUSE ¢ 'PRIHT <GOSUE Shee 


SUE BGGGS REM ..CLEAR SCREEHM 


bitdefender e  e  e 


i PRINTER 


Ws 
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PROGRAM HAME: MULTIPLE FILE MAWAGEMENT - HICKS < COHT’D > 


TRIAS PRT RIT Ubstesestecissesii si se it oe ee EE EE EE Ee EE EE OE i oe 
neeksbopopeckck | 

1@@4@ PRIHT 

1Q@G56 PRINT "DO YOU HAE AHD-OR WAHT TO USE A PAPER PRIWTER WITH” 
LIHE INPUT "THIS PROGRAM? <VES-HO> "SAS 

IF ASCCORFI="a THEM 2£=G: RETURH 

IF ASCCRS=S9 THEN iglee 

FRIWT 'FPRIWHT "IMPROPER ENTRY? RE-ENTER” © PRINT :GOTO 16646 

PRIHT ©FRIHT "HAVE VOU PREVIOUSLY MODIFIED THE PROGRAM FOR 
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poe 
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3, 
rm 
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en nn al 
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Mcp! 

1G@1iG PRIWT :LIHE INPUT "ASSIGHED PORT GH THE PRINTER? <VES-HO> ” 
rAE 

1G@ize IF ASCURSs=89 THEM 2=1° RETURH 

IGiSG IF ASClAPI="S THEM 1@iste 

Gide PRIHT 'PRIWT "IMPROPER ENTRY? RE-ENTER" SPRINT :GOTCQ 16186 

LEtSe GOSUE SEGEI REN ..CLEAR SCREEM 

1@isa@ PRINT ” FLEASE RE-ENTER THE FOLLOWIHG PROGRAM LINES WIT 


wii 
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mt yy yy 
bee 


t 
sat 


=, 
hcl 


PRINT "YOUR ASSTGHED PORT HUMBER AND CCONMTINUEDS "i PRINT 
LIST LISGiLIST S8F°e:LIsT 3456 

STOP t2=1°IRETURH 
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MULTIPLE FILE MANAGEMENT 
Hicks 


AUTHORS NOTES 


The program is "file management" oriented for the purpose of 
allowing the user to create his own data files, such as a 
cancelled check register, name and telephone/address directory, 
customer and account file, or a hundred other uses that I leave 
up to the user's imagination and personal needs. 


Unlike other such file management programs I have come across, 
this program is not restricted to the number of columns avail- 
able for the user's data information. A choice is available 
in the program run from just 1 column, all the way up to 20 


columns, or more (with a simple modification of a program line), 
WARNING! THIS PROGRAM SELF-DESTRUCTS WHEN RUN!! 


Once the user has completed the program instructions, these 
portions of the written program become useless and only take 
up valuable memory space that could otherwise be used for 
data by the user. Therefore, thanks to Robert Behar and 

Neal Rogers (REMark Issue #3), I have not only incorporated 
the 'Put' and 'Get' into the RUNning program, I have included 
the 'Delete' command. 


The program is designed to free the user of the burden and 
necessity to modify, rewrite, and de-bug, a program in its 
entirety just because an existing program is restricted to 
4 columns and he would like 5 columns, 8 columns, or what- 
ever. 


The "master" program contains no such restrictions since 

the variable specifications are contained in the individually 
created DATA files. The "original" program is only required 
when the user wants to create a new data file with different 
column requirements, title, and column names, Once a new 

data file is created, the remaining program is always a "master 
program that is compatible with any previous data files created, 


" 


The program is further designed so that all data entered is 
"string" data since the program is, after all, a "file" and 
has no number-crunching requirements. The exclusive use of 
"string" data consumes massive amounts of memory, especially 
on large data file programs, but cannot be avoided without 
creating substantial restriction on the user by designating 
some columns as "numbers only" to conserve string and memory 
Space. 


Multiple File Management Hicks 


Due to the ease in which a user can create a data file and 
its related column headings, this program could possibly 
be used as a "creative tool" to design the print format 

of a large program before an individual program is written 
in final form. 


PROGRAM MAME! BOLT HOLE LOCATER - WRIGHT 


GGGG1 REM #BCLT HOLE LOCATIONS. WRITTEN BY K.D. WRIGHT, &-22-Pae 

G@GG1G PRIMT "THIS PROGRAM CALCULATES THE BOLT HOLE LOCATIONS OF A 
GIVEN GQUEHTITY" 

AG@2e FRIHT “OF BOLTS EQUALLY SPACED ARCUHD THE CIRCUMPEREHCE oF 

A CIRCLE." 

GGGSG C=3. 1416-196: PRINT 

BGGdG INPUT "PLEASE ENTER RADIUS OF BOLT CIRCLE. {IH INCHES? "sR 

GGG5G INPUT "NEXT. ENTER BCLT HOLE QUAHTITY "s@ 

AGGGE K=EGGOIPRINT tPRINT "HOLE HUMBER". "DEGREES". "% AXIS". "y Ax 
1S" PRINT 

GGG7E FOR LalTC Gi Z=Z2+e:PRINT TRE CSL. 2.2 VeCHZ: A=SIMCYD#R: B=COScCY 

G@GG8G IF ABSSA<. G@G1THEN PRINT " @",.:GOTO 1466 

GGG9G PRINT A. 

G@G1GG IF ABS<E2<.GGG1THEN PRINT " @":GoTa 128 

@G11G PRINT B 

BG126 HET 

GG1i3G STOP 
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PROGRAM HARES CALEMDER — WILK IHSOH 


GGGG1 REM APPOINTMEMHT-CALENDAR VER. 1.8 NOW. 7.1978 

BEGES REM BY WILLIAM A. WILE IHSOH 

@GGG3 REM HEATHEIT ELECTROWIC CENTER 

Bege4 REM 9207 MAPLE STREET 

BABES REM OMAHA. NEBRASKA 6o134 

BeGee REM C4829 391-2071 

Beeer REM UTILIZING THE “GET” AHD “PUT’ ROUTINES BY ROBERT BEHAR 
AMD HEAL ROGERS 

BGGGs REM “REMARK ISSUE 3.1978 PAGE 17 ‘LINES 65@68-6514@>5 
BGGG9 REM THIS PROGRAM CAM RUM IH 16k BY REMQUIHG ALL THE REMARK 
STATEMEHTS 

pps igi ES eek Ere PATA 


15 DIM DECED MSC 11>.MC119,.P8¢999 
HE="TYPE THE HUMBER CORRESPOMDIHG TQ THE DESIRED FUNCTION: 


1m i 
my 
ne 

hf 
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ot 
eat 


rma me 
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tT 
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M2$="INCORRECT DATE" 

26 D$C8)="SUN" IDSC1I="MON" DSC 2)="TUE" 1 D$(39="WED" £D$C49= "THU" 
SQ "PRT: fob £eI= "SAT" 

05 PRINT ©PRINT tPRINT 'PRINT TAB“ 2@>"APPOINTMENT“CALENDAR VER 
S"<PRINT tPRINT 

@ GOTO 2006:REM TO MAIN LOOP 

3 REM FORMAT FOR COMMON TERMINALS 

GG5G PRINT 'PRINT TABS 2G) "FORMAT"! PRINT 

GSS PRINT "(1) TELETYPE OR LINE PRINTER" 

GGG6G PRINT "<2) VIDEG TERMINAL” 

GGG7G PRINT tINFUT X$sTIPRINT t1F T<1GR T>2THEN 5G 

BGQ75 IF A=ZTHEN F2=-6:REM LOCKS OUT APPOINTMENTS 
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m sd mm 
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aG166 REM “GET MOHTH & WEAR 

B@GLlGS LINE IHPUT "WHICH ee "SME 

B61e6 IF ASCOM#es650R ASCOMF 3 SS3 THEM PRINT "THE NAME OF THE MOHTH 
2"'GOTO Les 

@@11@ IMPUT "WHAT VERRY "S' 

@G115 IF Y<irSSTHEN PRINT “THE VERR MUST BE GREATER THAN 1753 AD. 
"!GOTO Lig 

BG1l26 REM COHNVERT MOWMTHS TO HUMBERS 

B@GL25 FOR H=eTo 11 

BGLlSa READ MECN. MOHD 

@G1S5 HEAT Hi RESTORE 

Bei4e FOR H=e@To ii 


m 
Tm 
oo 


PROGRAM HAME: CALENDER — WILKINSON < COHT’D > 


BELG IF LEFTECME. S2=LEFTEC MECH. S9THEM LSS 
COTS HEAT 


HELIS GOTG 165 

BELSS MeH+li REN USED IH SUBROUTINE AT LIME 514 

GELS GOSUR T45°REM CHECK FOR LEAP VEAR 

BELlEG PRINT tPRIWT 

SGl6G IF TAciTHEN 465 

& @ PRIWT "POSITION PAPER. HIT “RETURN” WHEN READY." 
5 A OPRINT CHRECP OI: CHTRL 4.1°FAUSE <CHTRL 4.@ 

Stee} REM DRAW CALENDAR 

iste PRIHT TREC SQ0MNSCND SPCC SOY 


my 
te 
se 


PRIHT «CHTEL 3.18 
i FOR M=G7TO 88PRIMT DECK o. tHEXT 4 
2 FOR He@TO 82:PR INT "#"SineExT 
S68 PRIHT tCHTRL 3.14 


a 
A FOR NsQ@TO 62:FRIHT "#"E8NEXT ¥ 
fi 


mm i 
*. 


‘om 
i 
fs fe 


ma Wt i Te me & 


m 
= 


GG425 GOSUB S1iG'REM FIND BEGINNING GF MONTH 
GG437 Fa=LtIF F2=1THEM 4@6@:REM PRINT "#"~S 
G@G43S REM CORRECT FOR MONTHS BEGINNING CN SUNDAY 


IF 2P=8THEN PRINT OseG0OTO 445 
46 PROT SPOOCe el So- bobs: GoTa 445 
42 TF DSiGTHEN S=S:G0TO 444 


rr tm at 
for my te Rr my 


GiGiefe 
GG445 So6 
GGddd PRINT SPCCSID: 


Pe) 
= 
at 


S Defti:TF DOMNAND F=iAHD F2=1THEN GOSUB 40@2@:REM CAL & APP 
TIHG 

& IF DOMCHIAND Fe1 THEM PRINT PRINT CHR&<72:CNTRL 4.1:PAUSE : 
L 4. 85G0SUE 635: RETURN 

FOIF G2MCHOTHEH PRINT <PRINT CHRS<72:CNTRL 4,1:PAUSE <CNTRL 4 
2ETURH 

G@ IF POS¢C2362THEM PRINT <GOSUB 61@:G0TO 445 

& IF FEC PI THEN 442 

7 GOTO 4666 

| REM COMPUTE THE DAY OF THE WEEK 

sTHT¢. 6+¢1°M) 9828s Y~-Z2t 21=M+1 242! 22=2G- 1808 = IMT 224 Zde 


INTCZ29 

eo TNT S CS#e2a sedi Ze=IHbT ilo! t Ziel Sot 2rez6+25—-2Z4+23+D—-1 
hE SPS EP OUP HTT Ce rer oo 

aot RIE TURE 

acs4e dela CHECK FOR LEAP VEAR & TURN OF CENTURY 

GHSES Yisdi lr Yelee= THT OY 1e@@o THEM Vi=4ae 


SA SPCUSS SSP OS PACT SRW SHS ROSES <USeGSKLS> If 


PROGRAM MAME: CALENDER - WILKINSON < COHT“D > 


IF VYeVl=IHTevevVio THEM Me io=29 

RET UP 

REM FORMATS CALENDAR TO USERS TERMINAL 

IF F2=1THEHM FS=1:GOSUB 4@56 

IF Fe=1THEH 618 

F2=6:°Fe=8 

IF T=1 THEN PRINT © PRINT © PRINT © PRINT D> RETURN 

PRIHT Ds: RETURM 

FI=6>F6=68 

D=VALODEI+12 TF DL LG@THEN OF=LEFTECSTR# CD). 2o+"#" 2 GOTO 621 
DE=LEFTSCSTR#(D9, 39+" 

IF T=1THEH FRIHT iPRIHT :FPRIWT sFRIWT DE: RETURH 

PRIHT Dés i RETURM 

REM LOOP TO PRIHT FOR VEAR 

IF M=1LiTHEH RETURH = REM END OF YEAR 

D=1°REM RESET THE STARTING DATE 

HeH+Lin=H+iiPRIMT iP RIT 

GOSUB 483°REM IF THIS WORKS I°’LL FREAK! ! 

GOTO SS2° REM A SOFTWARE MOBIUS STRIP 

REM SELECTS PRINTING OF OME MOHTH OR FULL EAR 

LINE IMFUT "DO VOU WAHT A SINGLE MOHTH GR A YEAR? "SAS 
D=1:REM SET STARTING DATE 

IF LEFT#*CAS. i3="N"THEH F=8:GOSUB IGS: G0Ta rae 

IF LEP TS¢CHS, 19<2°Y "THEN Fis 

F={IPRIHT "STARTING WITH "SiGOSUB 165 

RETURH = REM RETURN TO MAIH LOOP 

DATA "JANUARY". 31> "FEBRUARY" : 25. "MARCH", 31. "APRIL”» 30. "MAY" 


UT Ts he es Ts Os ot oe 
ao ds tel bo ee th im 
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tach 
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Ts 
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B1G16 DATA "“JUNE".3@."JULY".31."AUGUST".31. "SEPTEMBER". 30. “OCTOBE 
R's Sl 

Blg2e DATA "NOVEMBER". 3@. "DECENBER". 31 

Gi395 REM MAIN LOOP 

BSEGR PRINT = PRIWHT «REN RESERVED 

GB2G18 PRINT PRINT TABS 2@>"FUNCTIONS" : PRINT 

G2G20 PRINT "*1)2 APPOINTHENMTS" 

G@26S36 FRINT "<2 PRINT CALEHDAR" 

2646 PRINT "<32 PRINT CALENDAR WITH APPOINTMENTS” 
B2eSe PRINT = IMPUT sash 

G@2G68 IF A=G@OR ASSTHEM 2e1e 

B2680 ON A GOSUE S618. 58.4818 

BEEGe GOTO Sai 


SHECUREG> SPOOF TECNDCADSROCES «<UCOOSLD IT 


a 


PROGRAM HANE: CALEMDER - WILKINSOW < CONT“D > 


REM APFPOIHTMEHTS ROUTINES 

P PRINT GPRINT TABS 260 "APPOLMTMENTS" : PRINT 

2A FPRIHT "ct3 LIST ARPRPOINTMEHTS" 

“a PRIHT "c2> ADD APPOIKNTMENTS" 

46 PRIHT "c3> DELETE APPOINTMENTS" 

Y PRIWT "edo SAVE LIST OW TAPE” 

PRIKMT "chs GET HEW LIST FROM TAPE” 

» FRINE “ceo Exit” 

PRIHT © ITHPUT 2és5A 

GH A GOSUE S25. 3105. 33505. 3565. 3685 

IF ASéTHEH RETURH 

a GAdTC S618 

GH REM ADD APPOINTMENTS 

FREIHT "TYPE °“99,.9,.9° AFTER “DATE” WHEN FINISHED." 

FOR =F To 39 

INPUT "DATE? tHOW. 9, 19F%S=11.9,1978) "SPLLP2.P3 

IF Pi=SSTHEH PEC HO=STRECRE1 OI P=HERETURH 
SaPSihclb=2e°GOSUB S45°:REM CHECK FOR LEAF YEAR 

PEM CHECK FOR EWMTRY ERRORS 

IF Melo=29RHD Pi=2AHD P2o23 THEN PRIHT S2$:G0TO 3126 

IF Meise s2SAHD Fl=2AHD P2>28THEN PRIWHT H2¢:G0TO 3126 

IF P2SSGAHD CFP il=40R Pi=60F Pl=90R P1=11>9THEH PRINT #2$:G0TO 


IF P2<10R P2>31THEN PRINT ¥2$:GOTG 3128 
IF P3<17S3THEN PRINT M2$:GOTO 3120 
S LINE INPUT "MEMO: "3P$ 
REM FORMAT MEMO 
IF PIS1GTHEM Pig=" "4STRECP19:GOTO 3162 
PIS=STRECPLD 
IF P2<1GTHEN P2$=" "+STRECP2):GOTO 3166 
Pee Leo my 
ODSP 1 $4P2$4+STRE CPS) +P 
NEST XIPSS:REM P=1G@ INDICATES FULL APPOINTMENT BUFFER 
RETURM 
REM LIST APPOINTMENTS 
FOR e=aTO oo 
IF LEFTS(P$¢%),39=" 99"THEN RETURN 
IF PS$CH9<>""THEM PRINT PSC 
'@ NEXT ¥ 
'S RETURH 
aG REM DELETE APPOINTMENTS 
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aad 
cat] 
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my 


Sh 


fHeAUPKG>S <SPKOFKFOCTOCWSCASCRISES ANUPKOPKLS OTT 


PROGRAM HAME: CALEMHDER - WILKIWHSON < COHT“D > 


G@2365 INPUT "DATE TO BE DELETED “APRIL 1.1978=4,1,1978) "FP1.P2.P 


@2309 REM FORMAT FOR EASY SEARCH 
@331G IF PICiGTHEN P1$="_"4+STRS<P1):G0TO 3326 
G3315 Pis=STRECP1> 
GES26 IF PZCLGTHEN P2ZE=" "4STRECPZ9¢GOTO 3336 
S525 PIESSTRECPD 
G333G PHP LS+PZS+STRECPS? 
@3235 FOR x=aTa 99 
O3337 F1=0 
a IF LEFTS#(P$(X),32=" 99"THEN 3355 
3340 IF LEFTS<P$<¢H),149=P$THEN FI=1:GOSUR 3400 
@3341 IF FI=iAND LEFTS<At,19="N"THEN 3345 
G@3342 IF Fi=1THEN 3365. 
@3345 NEXT x 
@3355 LINE INPUT "DATE MOT FOUND. DO VOU WANT A LISTING? "sA$ 
G@336G IF LEFT#(A$.12="V"THEN GOSUB 3205 
@3365 LINE INPUT "ANY MORE DELETICGNS? “sAS 
G337G IF LEFT#(A$.12="¥"THEM PRINT #GOTO 3305 
G3375 RETURN 
G22395 REM LAST CHANCE 
G340G PRINT "FOUND! "sP$<X) 
G3465 LINE IMFUT "IS THIS THE ONE VOU WANT DELETED? "sA¢ 
G@341G IF LEFTS(A¢.12="N"THEN RETURN 
@3415 REM DELETE FILE, SHUFFLE OTHERS DOWN QUEUE 
@342G P=P-1:P$(xK2=" " 
G3425 FOR M1=x To 99 
G343G IF P#CM1+19<>" "THEN PSCM19=PSCK1+19 
G3435 IF LEFTE(PSCN1),39=" 99" THEN RETURH 
G344G NENT #1 
G3445 RETURH 
G356G REM ROUTINE TO FUT DATA BASE CN TAPE FILE 
G3505 LIME INPUT "ENTER A UMIGUE TITLE FOR THIS FILE: "s2% 
G@351G PRIHT "PLACE A BLANK TAPE IN YOUR RECORDER & PRESS “RECORD’ 
@3515 PRINT "HIT “RETURH’ WHEN READY." 
G@352G CNTRL 4, 1:PAUSE 
G3525 GOSUB 65116 
82536 STOP 
G3535 PRINT ¢CNTRL 4. 62RETURN 
G36GG REM ROUTINE TO GET NEW DATA FILE 


mm 
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bo 


SHOCUSKG> «SSK OPK F SM TOCWOKADCROKE> = <U>KO><L> II 


PROGRAM HAME® CALENDER ~ WILKIHSON < COHT“D > 


B2685 PRINT "HOTE THAT IF YOU CONTINUE. YOUR CURREMT LIST WILL BE 
LOST, ” 

2618 LINE INPUT "DO VOU WISH TO CONTINUE? "SAF 

GS615 IF LEFTS(A#. 194>"¥"THEN RETURN 

3626 PRINT "ENTER THE TITLE OF THE FILE DESIRED SHITTING “RETURN 
" WILL* 

B3625 LINE THFUT "LOAD THE FIRST FILE EWCOUMTEREDO: "s2¢ 

G3638 PRINT “PLACE THE CASSETTE IN YOUR PLAYER & PRESS “PLAY.” 
H2635 PRINT "HIT “RETURN” WHEN READY. ” 

G2e48 CHTRL 4. 1° PAUSE 

BS36¢5 GOSUB 65818 

G@2e58 STOP 

BA655 FRIHT 8 CHTRL 4.8: 605UB S616:G0TO 2a1a 


G4816 F2=1:°G0SUE IG:PRIHT «REM DRAW CALENDAR 

B4Gi5 TF F=1lAND DSMCHo THEN RETURH 

84626 PRINT i FOR #1=6TO 99 

B4G28 IF WALSLEPT#¢P $019. 399=M AND VEVALCMIDSC PSC 19.16.4399 THEN 
PRIHT Pela 

B4035 IF LEFTECP#¢(e19,39=" 99" THEM RETURH = REM SPEED THINGS UP 
4648 HEXT #1 

B4G58 RETURN 

B4G55 REM FROM LIME 437 

G4G68 DE=STRECDISS=5 

B4er"G TF DL IETHEH DF=" "+STR#¢Do 

B4e75 IF D=1GTHEN 5S=6 

G48S8 FOR a2=@TO 99 

G4096 IF VA eVALOMIDSeP$¢XS9.1@.49 5 THEN 4126 


G4166 IF MA CVALCLEPTECPS$¢xX29,. 39 9THEN 4126 

S4iG1 IF FS=i1 THEM 4148 

4162 IF Fala oiTHEH 4116 

B4165 IF 2F=GAND DE=MNIDFCP$te29.5.49 THEM F4=GiPRIHT MIDS( DF, 2, 29+ 
Te" EE GOTO 445 

Sediged TF UALSMIDSiPS$tk29.5.499=D THEN PRIHT SPCOCa?4#1@-29LEFTE(D 
#.SaeUe Pi Pésai GoTo 445 

B4185 IF D=1THEH 4126 

G@4iliG IF PS=MIDSeP$cK29.5.49 THEM PRIMT SPCCSSLEFTS*“ DS. So+"#" 52 G0T 
O 445 

B4128 NEAT M22IF F4=i1 THEM 4166 

B4i25 IF FS=1 THEM Fe=8: RETURN 

B413@ PRINT SPCCSob#s:G0Td 445 

B4+146 IF D=VWALOMIDECPS(N29.5,.499 THEN F6é=1:RETURH 


FROGRAM HANES 
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B4166 
S41i7a 
Tate 11 1 
BS AiG 
65826 
B.13 
Paban]  P S 
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Bo 188 
Ba 116 


Ge, 13 
65126 
B21 34 
65146 
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CALENDER —- WILKINSON < COHT’D > 


GOTO 4126 
IF 2F=GTHEH PRINT RIGHTS (DS. 39 stF4=@: GOTO 445 
PRIHT SPCOC2P*1Go-ZoDssitF4= Gi: GoTo 445 

REM TAPE “GET” ROUTIWE 
POKE S2382,.35:PQKE $383.75 


: 8384.13 
PORE S385, 71°POQKE S3a6,69: 


S387. 94! PORE 


a7 
Q 
m 


Shae. 36:POKE os 
PORE fetches 

PORE S311. 
PORE 301.13 


S313.°SIPOKE 8314.13 


REM TAPE “PUT” ROUTINE 


PORE &282,8@:°POQKRE S3G3.85°FOKE @364.9@°POKE S3G5.36°POKE 33 


PORE S23 
POKE 83 
RETURH 


FEPOKE S38. 7 S389. 78°POKE 8316.13 


AFG 
301.9 


re ot 


iFRET? 


FROGRAM NAME: RESOHANT F 


ABBIG GOSUE 83 

BEG25 PRIHT ."RESOMAHT F 
BEESE REM BY’ KAREN BO 
BGG4e REM 2261 ASH 
GG858 REM ROELAND PA 
BEGES GOSUR 646 

GBGG7E PRINT " FOR CYCLES 
ccc 


GABSE "FOR EILOCTYC 


PRIHT 
KILOHER Rae 


GGG3@ PRINT "THE SAME FO 
E FIRST TWO" 


G81 Ge 
ETURH. 
B11 
BG 126 


PR IMT 
THEM 

ene 

FRI 

fH1 38 FR vue 


"LETTERS. 
i . a 
SPRINT 
"SPECIFY WHI 
"  FREQUEMC 


: EXAMPLE: 


CWA ROLE > 


REG-CALC - BORDEN 


REGQUENHCY CALCULATOR 


RDEM 


RE. KANSAS 


562685. 


YOU MAY ENTER, = CYCL 


LES. ‘Ol MAY USE! KC. kK 


ROTHER UNITS, 


2688 CYCLES. 


CH FACTOR 
Adm ce 


YOU ARE 


CAPACITY = C 


SOLU 


GE 

Gal4G CLEAR 

Hais@ LINE INPUT sas 

SE1EG GOSUB 84a 

BSLlPa P4=39.47°341 

BELSE P28. 285185 

@Gi9@ IF At="F°THEN GOTO 234 
GG268 TF AF="C" THEN GOTO 488 
BeS1G@ IF AE="L"THEH GOTO 238 
@6226 PRINT "ERROR. 2.0000 ENTER A SIMGLE LETTER 
"SGOTH 126 

BG2SH REM 


es Bioeth "SOLWING FOR 
GOSUB 75 

=Sike CUAL cee bb oe 
cere iipesen Las 


PeSPatSGRe Ciel es) 
Poaiee 
B58 

» "FOR UALUES: 


PRINT 
anh RE SOWA 
iF FSt=iBBETHEHM PR 


FREQUEHCY !"SPRIHT 


Lives 
éL2$) 


SET fo op as ees i ae: “a 
HT FREQUENCY IS 
THT FSs" CYCLES 


os 
- 


CHE. >” 


ENTER 


VER 1 


ES, CY; 


W> 
oe 


Hi FOR, 


HERTZ, 


KILOCYCLES. 


7 — 
oe "ies 
te 1a i) 


OF 


OR 


THE PROGRAM READS OHL'’ TH 


266@ . PRESS R 


TNDUCTANCE = L” 


AS FURCTION 


AHR noe i ek. all 


"3US$ 


<H>AU>KG> <SPKOSKF OCT OCWOKASCROCES <<U>KO>CLD 8 II 


PROGRAM HAMNE: RESONANT FREG-“CALC - BORDEN < CONT°’D > 


ABS6G IF FR>IGG@GAHD FS<C=1.G@E+@7°THEH FS=FS-1G8G@:PRINT F3s" KILOCYC 
LES <KHZ. 2" 

@G37G IF FAD. @GE+87 THEN FI=FS-1SGG0G8:PRINT F3s" MEGACYCLES cM 
HZ. 2" 

BESSE GOSUB 646 

GG336 GOTO 126 

S846 REM 

BG918 PRINT "SOLWIHNG FOR CAPACITY" © PRIWT 

86428 GOSUB S38 

BE436 GOSUB Foe 

GG444 R2=1-CUAL CVSS 94VAL CVSS > s4VAL CY 2S D 

B45 C2=F44 CUAL CP S$) T204+UALCLS$ > 


aGden IF C3>=1THEN PRINT ."CAPACITOR VAL. IS "s€33" FARADS.” 
IF CS<1AND C32=1.E-1@THEM C2=C3"1.E+68: PRINT ». "CAPACITOR VAL 


ned 9e 
. 15 "C33" MED" 
GG5GG IF C3<1.E-1GTHEN C3=C3#1.E+i2:PRINT . "CAPACITOR VALUE IS." 
S3° Prt 
51a GOSUB 64@ 


eos 
DCA cA 


ii 


GOTQ 126 

PRINT "SOLWING FOR INDUCTANCE”: PRINT 

GOSUB S38 

GOSUEB B58 

R2=1-CURL A YSS4#VAL CVSS AVAL CVS) 

L2=P44 UAL CP 29 T294VAL CCS > 

L3=R2-L2 

iP LSeHI THEN PRINT «"INDUCTGR UAL. IS "sL3s" HENRYS." 
IF LS iAH L3s=. 661 THEN LS=L3*1@@8: PRINT ."IHDUCTOR VAL. 15 
3" HH." 

IF L3<.@61THEN LS3=Li#1.GE+6: PRINT »."IHDUCTOR WALUE. IS "sL2 


Coe CS) a Ee 
tm Git Go Go me mo tm Gh mm ca 
Pom wm a) ob ty he ee OL 


i ty Gi ta he ee es a 


Tee Oh CITE Cn on cn 
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3" UH. 
BG628 PRINT = FRIWT :GOTO 12e 

BGE38 FOR IT=1TO 1G:PRIWNT tHEST I: RETURN 

BGSé4a FOR I=1TO SIPRINT :HEXT I: RETURN 

B65 LIME INFUT " ENTER CAPACITOR WALUE ? "sC2t 

BG@eeh IF VALS CSE>=@THEN PRINT »." ERROR, RE-ENTER» «65 «« 
"!G0TO 658 

GG67G LIME INPUT " ENTER? PP. MMF. MFD. FARADS. ? "SUZ 
ABESE IF LEFTE(US$. 29="PF THEM Vis="1.8GE+12" 2 RETURH 

Geese IF LEFTE (USS. 29="MF "THEM VYigsg="1.86E+86" = RETURN 


SHoSUSSG> <S><OPC FMT OAWOSASMROKED 8 <UPLORCL> II 


PROGRAM MAME: RESOMANT FREG-CALC - BORDEN < CONT“D 


mo 
bee 
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LEFTS(US$, 29="FA"THEN Yid="1, 68": RETURH 

IF LEFTS$cU2¢, 23="FO"THEM Yid="1. 80": RETURH 

IF LEFT#.US$. 29= "MM" THEM VYidt="1. 666412": RETURH 

IF LEFT#Aue$. 29="UU" THEM Vid="1.8G@E+12": RETURN 

PRIHT . W285" UNFAMILIAR TERM, RE-ENTER...."2GOTC 650 
LIME IHPUT " ENTER IWMDUCTOR VALUE ? "sLe¢ 

IF VALS L2$9=8THENH PRIHT » "ERROR, RE-ENTER « » os 

MG (Ser 

LINE ITHPUT "ENTER? UH » MH » HEMRYS,. 7 "SLsg 

IF LEFTS (US$. 29="UH" THEM Y2t="1. GG@E+G6" 2 RETURH 

IF LEFTS*&US$. 29="NH" THEM VY2t="1.GGE+83R"2RETURH 

IF LEFTS#¢US$.29="HE" THEM VY2et="1. 88" s RETURN 

IF LEFT#USe. 29="HY"THEH Y2$="1. 60" 2 RETURN 

PRINT .USSs" UNFAMILIAR TERM. RE~ENTER..... 'GOTO 756 
LINE IWPUT " ENTER DESIRED FREQUENCY 7 "“sF2$ 

S IF WALSFSS3=8THEM PRIHT » "ERROR, RE-ENTER": PRINT = PR 
HY GOTO S38 
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a 
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? "SLs 

LEFTS(U4#, 29="CV"THEM Y3$="1. 9": RETURN 
LEFT#<(U4#,29="HE"THEN Y3$="1. 4": RETURN 

LEFT#<Ua$, 29="KO"THEN VS$=" 1060": RETURN 
LEFT#(U4$,29="KH"THEN YS$="10@@" RETURN 
LEFT#(U4$,29="KI"THEN Y3#="1G80" :RETURN 
LEFT#(U4$,29="ME" THEN Y3$="1,GE+06" RETURN 
LEFT#(U4$.29="MH" THEN YS$="1.GE+06" RETURN 
LEFTS(U4$,29="MC"THEN Y3$="1, GE+G6" RETURN 

PRINT .Udtss" UNFAMILIAR TERM. = RE-ENTER....":GOTO 83a 


Ce my A Cl ea CE ee 
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1! 


Ra Ra ha us 


& MmL=PEERCTO© H2=PEERCI+1 99 XS=PEEK CI +25 
a HO=GTHEN PRINT I: STOP 


SoG LINE INPUT " EMTER> CYCLES= CY RILOCYCLES= KC MEGACYCLE 


<HoCUStG> <S>40S<4F PCT OMW CASK R KES <UKORLS TT 


PROGRAM MANE: FAD CALCULATOR - BORDEN 


PRIHT itPRIWT t PRINT 

PRIBT 2."PAD 1 ATTENUATION PAD IMPEDIEWCE CALCULATION” 
PRIHT THES Sea" EY KARE BORDEHM. " 

PRIHT TABS S63" S281 ASH” 

PRINT TABS 32" ROELAMD PARK, KAWSAS. 66285" 

PRIHT 

aGere PRINT ."EWTER WALUES FOR Rl. AWD LOAD R45, t2 WILL BE CA 
LCULATED® 

GGG36 PRINT . "Rl AWD RS MUST BE EQUIL |" 

BEGG PRINT = PRIWT 

GG1GG LIME IHPUT " DRAW DIAGRAM F VeH "SAE 

BALI PRIHT «PRINT 

G@Gi26 IF AF="H" THEN 26e 

GBELSG PRINT "SIG. IH —-> WCISB0 9 mee eee cy Nee te Smee a oem) ele eee Oe 
—- =—f#} Pre: i 

Heide GOSUB Soe 

BEIlSG GOSUR SEE 

BG16G PRIHT TABCZSO"C R1l J" sTABcC4d4so"C RS I" Ss TAB 6@o"C R4 J LOAD” 
GELTE GOSUE 22a 

BELSe GOSUE 22 

BELl9G PRINT "  COMMOH —-> as ST at deel lg a ol ae aoe 
— tek} ers ae 

HHSG8 PRINT iPRIHT 

BB216 GOTO 246 

BGS20 PRINT TABS SSO"! "STAB C 46a" STAB Cezar" 


agian e 


i fk tb bo re 


Gy Ml ma ms 
Cy yy Ch ee a 
CD mr) ey my 


GGS58 RETURM 
G@@248 PRINT "ENTER WALLIES” 
BES58 PRIHT 


@ TIMFUT "Ri= "SRi 
SSPE PRINT "R2= UHEHOWH" 
GG23@ PRINT "Ro="aR1 

BEL98 RI=k1 

BESE8 TMPUT "LOAD. R4= "GRe 
GES 1G TF R42=R1THEH 414 
BESS6 IF RE=HTHEN GOTO 228 
BEZSE LIS QiveRilo+ci-Reds 
BAS48 Lo=1-Li 
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S398 IF RE>GTHEN PRINT " RZ SHOULD BE...."sR2s"0HMS 1” 
GG400 PRINT 

G41 IF R4>=R1 THEN R2=6 

a0428 IF RZ<=GTHEM PRINT ."NC'T POSSIBLE WITH THE VALUES GIVEN 


2G Si=teR4+i-RS 
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ES=16G4(R2-53) 

E2=1G0-E3 

IF R2>QTHEM PRINT ” % OF SIGNAL OUTPUT I 
E4=100-E2 

DI=ZErk CLOG Ed > “LOG 1G) 2 

PRINT " SIGNAL RATIO IS "sE4s" To 1" 

PRINT " ATTENUATION IS "sD1s" D.B.” 

PRINT PRINT :PRINT 

GOTO 260 
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REM INDE LEADER 

REM BOB CRAIG. CINTI.: OH. 
FOR H=1 TO L2:PRINT tHEXT 
PRIHT TABSSd 5" INDEX 
LINE INPUT 
IF LEPTS¢2%. 194 20y" 
LIST 
DIM AS(3G9.B$0 585 

FOR s=1 TO 3a 

READ A$ (eos READ BSCR 
IF AS¢ho="6G888" GOTO 
HEAT 

BEA 1 

FOR 'YY=1 Ta & 
A=20-LEWCAECY I IBS CY OSE se 
FRINT ASCs 

IF A=6 
FOR 2=i 
IF POS *@>>65 
IF 'V=2e 


THEH 


136 


THEM PRIHT 
THEM PRIHT = PRINT 


HET 

IF POS¢&921 THEN PRINT 
PRIHT "END OF LIST....HIT 
EMD 
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DATA 


"LUMAR LANDER". "@3e" 
"GARBAGE" . "G37" 
"FINAL FRONTIER" "4 
"STARS". "G45" 
"SAWTOOTH". "G51" 
"SIMEWAWE" . "G54" 
"SLOTMACHINE" . "@57" 
"KLINGOH KAPTURE". 
"LIFE", "@72" 
"OSCAR 8". "G7?" 
"LEGAL ID". "@@2" 
"HELLO". "G85" 
"KILGBAUD MYSTERY", 
"BASEBALL" » "186" 
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PROGRAM HANES WEATHER RECORDS — MYRUP 


GGL PRINT " WEATHER RECORDS PROGRAM" 

BaBSH DIM SSc12,45 

HEESE GOTO lsra 

BEE4E PRINT CHEE? 

BE5a LINE IMPUT "DO VOU WAHT TO INPUT FROM A TAPE FILECYeHo? "SK 
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Heea IF KS¢="""THEH GOTO 2a4a 

Gara PRINT CHRE¢7> 
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et PRIWT "TH THIS PROGRAM. I RECOMMEND THE USE OF DEGREES FAHR 
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> FOR PRECIPITATION" 
@G@ PRIWT CHRECFO'LIWHE INFUT "WHAT MONTH? "She 
1@ PRINT CHREC POS IHPUT "WHAT VEAR? "Sl 
126 IF M#="JAHUARY "THEW LET I=1 
3G IF M#="FEBRUARY" THEN LET I=2 
4id@ IF M#="MARCH"THEH LET I=3 
ALS@ IF Mt="APRIL"THEN LET I=4 
4166 IF M$="MAY" THEN LET I=5 
ae Ya IF M#="JUNE" THEW LET ae 
GE18@ IF ME="JULY"THEH LET I= 
BEi9G IF M#="AUGUST"THEH LET 1=8 
BASES IF Mt="SEPTENBER” THEM LET I=9 
AG21G IF Me="OCTORER"THEN LET I=148 
AaS2e IF M#="HOWUEMNBER”’ THEH LET I=11 
G@23G@ IF ME="DECEMBER" THEN LET I=12 
Bese PRINT CHRECTOIIF M$="TEST" THEM INPUT “HOW MAY TEST POIMTS? 
"sD 
Ge25G IF IS@THEH LET D=S5eT. 15 
e268 DIM Tithe. T2cDo,PeD>. FeD>. UCD) 
GOYA LET Di=D:LeET Dz=DSLET Da=D 
BESS IF B=<GTHEN GOT 155e 
BES98 PRINT CHRECPD 
GASGG PRINT "PLEASE INPUT MAXIMUM TEMPERATURE FOR EACH DAY OF THE 
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ar@ PRINT CHRE¢*3 
AGSEG PRINT "PLEASE INPUT MIWHIMUM TEMPERATURE FOR EACH DAY OF THE 
MOTH” 
AZoe FOR #=1TO D 
Be488 PRINT &: 
BG41@ INPUT T2acx3 
Be426 IF T2¢h)=G@8THEN LET D2=D2-1 
BG438 HEAT & 
AA44@ PRINT CHRE¢?> 
66458 PRINT "PLEASE INPUT PRESSURE FOR EACH DAY’ OF THE MONTH" 
Be468 FOR A=1TO DB 
B47 PRIWT &. 
BB4S6 INPUT Pex 
Be4598 IF Pexo=@THEH LET D3=D3-1 
BES68 HEAT 
@ PRINT CHR#<7) 
PRINT "PLEASE INPUT PRECIPITATION FOR EACH DAY «ZERO IF NOW 
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BESee HEST & 
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BESSR LET ULSS=INTC Leer oy 3 5 
BESS HEAT 
FRIWT CHEECT> 
FRINT TRECLG@O"TMPUT DATA FOR "sme". “EY 1 
FRINT "DAY". "MAR TEMP": "MIE TEMP". "“PREESSURE”. “PRECIP” 
FOR s=1To D 
PRIHT 4. TICK. T2th3.PCR PCR OIHEXT K 
FRIHT CHREC PS 
LIHE INPUT "IS ALL THE DATA GEL Ho?" SRS 
IF BS="H" THEM GOTO ize 
FRIHT CHEE 73 
BaSoe PRIHT " PLOT GF IHFUT DATA” 
AGBPAG GOTO ihe 
FRIHT CHEESY OEPRGHT CHEE YS 
FRIKT "HOW COMFPUTIHG WEATHER STATISTICS FOR “sSMes". "sl 
FOF S=17TO 6 
LET BLl=Bit+tTiceo:LeT AL=BieD1 
LET BE=B2+T2ee2:LET AS=BS-D2 
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LET E1=E1+CRES(Ti<xo-A 

IF FE¢KI=8THEH GOTO See 
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CET Hi= “HL+BeT 1 CHD 

A LET Ji=Jiteex 

P46 LET RISKite: LET Li=kKi-D1 

IG LET Mi={H1-DieAl#bLio-¢J1-D1l4Li+bi1> 
S68 HENT & 

LET Hi=M1i+D 

FOR S=1TO BD 

IF T2¢%3=@THEN GOTO 1446 

LET H2=H2+h#T2ik2 

LET J2=Ja+Hex 

LET R2=K2+HILET L2=K2/D2 

LET M2={H2-D2+A24+L 24 T2-D24#L24LZ2 > 
HEMT 

Bigieg LET N2=M2+D 

FOR S=1Ta BD 
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Gigere IF Pees=GTHEM GOTO 1126 

G@1GG8 LET HS=H3+M#P Cx) 

BiG36 LET JS=I3+K#x 

S11G@ LET KS=KS+HitLET L3=kK3-D3 

SLili@ LET MS=<HS-DS#AS4+b 30“ JS—-D3+«LS4L3 > 

@11i2@ HEAT & 

BLilze Noe teebe PRINT CHRECPOIPRINT CHRS¢ Po SPRIHT CHRS¢ 

G@iide PRINT STATISTICS FOR "sMHs". "sV¥1 

Blina PRINT "“HUMBERS IN PARENTHESES ARE THE CLIMATOLOGICAL HORMAL 


g DALIIS. CALIFORNIA" 
PRIWT . "MAM TEMP"... "MIM TEMP"... "PRESSURE" 
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PROGRAM HAMNE: WEATHER RECORDS —- MYRUP < COHT“D 


“ae 


@117@ PRINT "MEAN" ALS" C"sSacT.205"5"5 
Gii8@ PRINT TABC41OAZS OM sSSc Ls Sogo" 


@119G@ PRIHT TABCS92AS 

@126@ PRINT "“STAHDARD” 

@1216 PRINT "DEVIATION" .S1..52..,53 

G1226 FRIHT "TREMD”.NH1..HE..HS 

61236 PRINT "DATA ” 

G@1246 PRINT "FPOINTS",.D1,.,.D2;,.D3 

i250 FRIWT 

81266 PRIHT "TOTAL PRECIPITATION FOR "sSM#s"2 "SRA" CSSSCI.495"3 
G@i276@ IF KSt="V"THEN GOTQ 2a96 

1286 STOP 

G129G@ PRIHT CHRE¢ 7: INPUT “WHAT DAY’ IS THE ERROR? "sRi 

@136G@ LINE INPUT "ERROR IN MAX TEMF¢1>.MIW TEMNPC2>.PRESSURECS) OF 
PRECIF¢4) "ses 

@i21G@ IF ES="1"THEH GOTO 1356 

G1320 IF E#="2"THEHM GOTO i4ee 

Gizsea@ IF E#="—2"THEM GOTO i456 

Bi24@ IF Et="4"T7THEH GOTO 1508 

@135@ IF TitRi>=@THEH LET Bi=Di+i 

H1260 INPUT "ENTER CORRECT TEMPERATURE" STicR1i>:IF TitRi>=G@THEN Di 
=Dpi-i 

GiSrG@ PRINT CHRS*<F2:°LIHE IMPUT "AH? OTHER ERRORSCY-NO? "ST 
@13eG@ IF T#="V"THEN GOTO 1296 

G1i29G@ IF T#="N"THEH GOTa 61e 

@i4de@@ IF T2¢R1>=G@THEN LET D2=D2+1 

@i4d1ia INPUT “ENTER CORRECT TEMPERATURE ("ST2cR1>°IF T2¢R10=GTHEH 
D2=Dp2-1 

@1426 LINE IHPUT "ANY OTHER ERRORSCY-NO? "Sd 

B@l43G IF Vt="V"THEHM GOTO L298 

G@144@ IF Y#="H" THEN GOTO 616 

Bid5G@ IF Peri =G@THEH LET DS=pa+l1 

@idéG INPUT "ENTER CORRFECT PRESSURE "SFCRLOR:IF PRI 2=G@THEN DS=ps 
=I 

Gid?G@ LIHE INPUT “AH GTHER ERRORS*Y-HoO? “SPS 

Gi4s@ IF P#="" "THEM GOTO 1296 

61496 IF PS="H"THEH GOTO 618 

Gi566 INPUT "EWTER CORRECT FPRECIP">FecRi> 

@i51le@ LIHE IHPUT "ANY OTHER ERRORS <YeHo? "sas 

@1526 IF Q$="¥"THEH GOTO 1296 
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me 


soe IF &="H" THEM GOTO Se 
& STOP 
SG FRIHT "HELP!!! 1 DON’T EMC WHAT TO DO! PLEASE START AGAT 


= mm 


sa 


FRINT "CAD WATCH VOUR SPELLING! >" 
2 TOF 

FOR s=1TO D 

FRIMT He 

IF T20eo=8G60TO 1646 

IF T2084 23THEN PRINT “C™5 

IF T2822 25THEM GOTO 1646 

PRINT TABCCT2¢K%)—-259729"C"3 
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1646 IF Titses=@G0TO 1666 
1658 PRINT TABCCTICXI—259729"H" 3 
1668 PRINT THES Sas 
B@ie7°@ FOR VY=1TO Ut) 
Giaee IF Uleo=8G0TO 17° ee 
Blé69@ PRIHT ee"; 
Gilr°G@ HERAT V 
S110 IF Fexo=@G0TO 173a 
Gir2e PRINT TABSPCes-9SSo"R":GOTO 174 
BiFlzeé PRIHT 
@iv4@ MEXT K 
B1PSG PRIHT TABC2Z "S38" TABC PO "46" STABCIZ> "SG" STABC I> "66" 3 TABS 22> 
n TR uW 
Si76Q PRINT TABS 229"7@" sTABC279"9@" STABL329"9@" STABCS7>" 100" 
Birra PRINT "PRECIP: #=8.1"5 
G1iYSG PRINT TABC4S5>"16eG" STAB SS "1614" sTABCES) "1426" s TABS 75) "183 


PRINT CHR#* Po: LIME INPUT "REPEAT DATA PLOTCY Ho? "SOs 

IF OF="""GOTO 1588 

FRINT CHRECPOILIWE THPUT "AH MORE CORRECTICHS(¥-Ho? "sO1¢ 
IF O12="V"THEN GOTO 1298 

PRIHT CHRS«< 7) 

LIME IMPUT "DO YOU WANT TO WRITE A DATA TAPE FILE NOW Y-Ho? 
Ko 

TIF O9¢="")" THEN GOTO 2aoe 

GOT Fig 

FOR B=1TO 12 

READ Sach, 1) 
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FOR x=1TO 12 
READ Sith. 2) 
HEAT 
FOR = 1 
READ SScn.3 
NEXT 

FOR M=1TO 12 


READ Sack. 4) 

HEAT 

GOTO 4 

DATA 31.26,231.36,31.38,.231,31,38.31,.36,31 

DATA 534.1.59.4,.65.2,7°3.2.86.5.33.4, =, 1,.95.5.4 r9.4,66.1 


DATA 36.5.39.2.41.6.44.5,.98.9.5 
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DATA o2.14,1.36,0.57,.0.13,0,8.41,0.17,8.76,1.373. 
PRINT 
PRIWT 
CLEAR 
PRINT CHR¢¢7>° STOP 
GOTA 57a 
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"PLEASE USE ‘GET’ 
"TYPE IN 


COMMAHD TO READ IM YOUR INPUT FILE" 
“COHTIHUE” TO RESTART PROGRAM. " 


PRINT "TO WRITE A TAPE FILE. 1 RECOMMEND A LABEL IN THE FO 
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BEG26 REM 
BREESE REM 
Bee4a REM 
BEES REM 
ARSE RR 
Hew REM 
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BEETE REM 
TER EMER 
BHESE REM 
@GG90 Fi=3. 
FADS" 
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BELG FRIWT 
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BeLSe FPREIMT 
AUSES" 
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LOWPASS FILTER OR HIGHPASS FILTER 
COPYRIGHT 19°S BY FRAHK DACEY 


E : Pt “ ee ae a Ce a 
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141592 H=1S68888! H=1868:L1$=" MICROFARADS":L2s=" PICOFA 
K OHMS": FOR I=1TO GiPRINT HEAT If PRINT TABSS) Yet" 5 
“OPERATIOMAL AMPLIFIER FILTER DESIGN PROGRAM HEHE 


TABS 2B9"LOWPASS FILTER OR HIGHPASS FILTER" 
'PRINT "DURING THE PROGRAM THERE WILL BE OCCASIGHAL P 


"TO ALLOW TINE FOR READING AND-OR DRAWING SCHEMATICS. 


7RESTHET THE PROGRAM *--' PRESS THE SPACE BAR." 
*PRINT "DO YOU WAHT INSTRUCTIONS OR DG YOU WAHT TO EW 


THPUT "THE PROGRAM 7 SI=IHSTRUCTIONS<P=PROGRAM> "304 


IF LEFT#CG¢.19="F" GOTO 436 


=PRIHT 
"THIS PROGRAM, WITH YOUR ASSISTAHCE, WILL DESIGH LOWP 


"AWD OR HIGHFASS FILTER CIRCUITS USING OPERATICNAL” 
“AMPLIFIERS. THESE FILTERS ARE UNITY GAIN TYPES WITH 


"A HIE DE-OCTAVE ROLLOFF. " 


"VOU WILL BE ASKEG THREE THINGS: ” 
TABCSI°1. TYPE OF FILTER: DESIRED - LOWPASS OR HIGHPAS 


TABCSo"2. THE DESIRED CUTOFF FREQUENCY’. °3 DB DOWN FRE 
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HE258 FRINT 
BEL9G FPRIWT 
BGSee FAUSE 
BES1G PRINT 
THU Sse" 


Ba326 PRINT 


fm , 
eed 


LOPS FSS TOA APA ROL ED 


E: LOWPASS DESIGH - DACEY 


a id 
wa She 


TAB® THE MINIMUM THPUT IMPEDANCE REQUIRED. ” 


TABS S35 "4tREMEMNBER - VOU MUST ALSO COWHHECT PLUS AND M 


TABS S 2 setePOWER SUPPLY WOLTAGES IH ADDITION TO THE OT 


HEF s#::#" 

BGS3G PRINT TABSS> "et COMPOMENTS SHCWH IN THE SCHEMATIC. AWY VOL 

TAGE" 

GES4dG FRINT TABCS)"++4+BETWEEM ABOUT EIGHT TO FIFTEEW WOLTS WILL 
CRE. es” 

G@G=5@ PRIHT :PRINT TABCEo eet PIHOUTS FOR THE ¥41 OP-AMP se" 

GG26G PRINT TABS "#4 PIM 4 MINUS IMPUT + PIN 3 PLUS IHMPUT + PI 
5" 

GGSFG@ PRINT TABS "+e MIHUS SUPPLY VOLTAGE * PIN 1@ GQUTPUT + PIN 
11" 

GGSeG PRINT TABS S "++ POSITIVE SUPPLY VOLTAGE. ‘FOR 14 PIN DIF)" 

BGS98 PRINT 

GG4EGG FRIHT TABCSO"se4#V0UR CHOICE OF CUTOFF FREGUENCIES SHOULD BE 
soko" 

GG418 PRINT TABCS)"+++H0 GREATER THAMH S@@ KH FOR THIS FROGRAM. 
seack og 

GG426 PAUSE 

GG43G@ FPRIWT tPRIHT :PRIHT 

BE446 FRIHT "ARE YOU IHTERESTED IH DESIGHING A LOWPASS FILTER OR” 

B8a45@ LINE IHFUT “A HIGHPASS FILTER 7 (L=LOWPASS--H=HIGHPASS) "sa 
$ 

GG46G PRINT = PRIHT "HERE IS THE SCHEMATIC OF THE CIRCUIT You CHOS 

ae 

GG476@ PRINT "COPY THE CIRCUIT AND CONNECT ALL THE POTTED LIWES.”" 

@G4sG IF LEFTECG@$,.19="L" GOTO F726 

Bad9G ITF LEFTE*O#.13="H" GOTO Sie 

SGSee GOTO 446 

G@AziG GOSUE 117a 

thon Ri=k: Rko=k 

Bas PRIWT "THE VALUE OF Rl IS "sRilsLit 

Bas ie PRIHT "THE VALUE OF RS IS “sResLat 

@G3558 CL=THTON-cPl+P eek os Ca=01 

Mee eo GOSUE Li?Pra 

@G@S78 FRIWT "THE UALUE OF Ci If "sCast 
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*%, 


LOWPASS DESIGN = DACEY < COHT"D > 


i2ra 
rink VALUE OF C2 iS "3Cas 
i458 
live 


RIi=IHT (01. S#R#1G9+. 59/16 


RLi=INT ON C4ePleP ited oot 


C3=C1 


Ro= 2k 1 


GOSUB 
FRIWT 
FRINT 
FRIHT 
PRIHT 
GOTO 

PRINT 
PRIHT 
PRINT 
FRINT 
PRIHT 
PRINT 


GOSUE 
GOSUE 
PRIWT 


PRINT 


PRINT 
PRIHT 
PRIHT 


PRINT 


PRINT 
PRINT 
PRINT 
PRIHT 
FPRIHT 
FPRIWT 
PRINT 
PRINT 


1278 
"THE 
"THE 
"THE 
THE 
14568 
?PRINT ©PRIWT TABCSS 

‘aepdck ORPERATIOMAL AMPLIFIER UNITY 


WALUE 
VALUE 
VALUE 
VALUE 


OF Ri 
OF R2 
OF Ci 
UF C2 


IS "sRIsLat 
IS "sR2sL3$ 
is *3C3F 
IS "sCSt 


GAIN LOWPASS FILTER 


*PRINT ¢F$="LOWPASS" 

TABS S99" '"SIFOR I=1TO S@PRIWNT "-"SthEXT ISPRIWT "!" 
TABC 2B"! | CL STABC2Z99") " STABCSS2%!-" STABCESD" 
TABC SOR "SI GOSUB S2G5PRIHT "C Ri J"s:GOSUB 92@° PRINT 


SZQ:PRINT "! ' "si GOSUB 
S2G: PRINT “!*S TREC S52 "~ 
TABCI6O" "STARE 265"! 


S7A:GO0SUR SPOIPRINT "i": 
MSTABC SALON" STAB COG"! 
'" STABCSS)"!" STAEC4@9"—" STABLES? 


Sr ar 
C33 


TABS 29"IN" STAB ido" "STAB PP UN STRBCS62"°TYPE 741 OP= 


ov u 
pari 


TABCS3S)"-"SiGOSUE 92G:GOSUB 920:PRINT "!---x" 
TABC 162"! " STABC339 "1" sTABC4SS> "-" STABCES> "OUT" 
TAR 3)"2"STABC169"!"3:GOSUB 92@:PRINT "C R21" 


as 
ez 


GOSUB 


et 


"IT" SS G05UB SZ6°PRINT "'"STABCSS9 "+" Ss TABC4S19"—"STABC 64 
TAB LSI" IS TRHEC 295" YS THe Soo" f=" STAB C642"! SS PAUSE 
TABS So" STABC S33 3°G05SUR S22 PRIHT TABS e4ar'" 

TABCS9" 9 "STABC2893:GOSUB 92@: PRINT " C2"STABCE4d"!" 
THE. S27 SS TART 29 UO STABLES oY 

TABS 22 "GHD" S TABS 239 "GHD" STABC63> "GHD" 
‘PRINT tFOR T=17TO PeSPRINT "#"S°HEXT 
Home SP RETURM 

SPRIHT tPRIHT TABS So: 


I:60TQ Sia 


SHe<ul> 


<G> 


. 


<FR<TICUDADKRECE> = <UDKOOKL> TT 


PROGRAM HAME: LOWPASS DESIGN - DACEY < CONT“D > 


BG346 


PRINT 


Roses: |! 


stale 


G1iG28 
AMP" 5 
G1igs3a 
G1 ede 


PRINT 
PRINT 
PRIHT 
PREIHT 


PRINT 
GOSUB 
PRINT 
PRINT 


PRINT 
PRIWT 


632"0UT" 


BL eae 
166 

BlGea 
BILGE 
B1GSe 
npn 

B1la9e 
Blise 
Hilig 
Blizz 
Biise 
B1146 
mie 


Bi Zee 
@1216 
Gl226 
Giss8 
WHEN” 
Bide 


PRINT 


GOSUE 
FRIWT 
PRIWT 


FAUSE 
PRINT 
PRIWT 
PRIWT 
PRINT 
PRINT 
PRIWT 
PRINT 
PRIHT 
IHFPUT 


IHFUT 


"seed: ORPERATICWAL AMPLIFIER UNITY GAIN HIGHPASS FILTE 


[PRINT :F$="HIGHPASS" 

TAB C299" '"S2FOR I=1TO 3@:PRINT "-"s:NEXT IfPRINT "!" 
THES F3 wt i Ee u STAB: Saye STABS OG ee u ETAB“ Sad" 

TAR S2"S"GIGOSUB L1G@:PRINT "! !"s:GOSUB 1168:GO0SUB 1 


"I"NZSGOSUE L1GG:PRINT "C RL 1" s5GOQSUE 116@:PRINT "!"5 
LISGIPRINT "!"STAEC S59 "-"STABC419"-"STABCSG "I" 
TABS? 9"! I" STABC1GO"!" STABCS39"!" TABLAS) "-" STABCEGD" 


TABCZO" IN" 2TABC IG]! YS TABCSS 3° I" STABCSEO"TYPE 741 OP-— 


TABS SS9"-"FIGOSUB 116G@:G05UB Lié@:FPRINT "!---K" 
TAB IGS” !" STRBC260"! |! C2" 3 TABC SS)" " S TABSC AS) "=" STAB 


TABC SUA STABC ISO" "SS IGOSUB LL6BGIPRINT "! '"s:GO0SUE 1 


116@: PRINT "!'"3:GCQSUB L16@: PRINT "'"STABC352"+"5 
TAB 413"-" 3 TABS) "H" 
TABS SO"! "STARE Zea"! UU STARE Saat STABLES u STAR C645 


CPRINT TABCS)"!"STAB<2835:GOSUB 116@:PRINT TABCEé4>"!" 
TABC3)"!"STABC28>"'RI"STABCEd oI” 
TABC3)"!" STABC28)"!2!" STABCEGS "I" 
TRESS"! " STABC28)3:GOSUB 116G:PRINT TABCE649"!" 
TABS 32"! " STABCZ99"!" STABCG4D "I" 
TAB (2) "GHD" 3 TABS 283 "GHD" sTAEC63> "GND" 
fPRINT ©FOR I=170 7GiPRINT “#"S:MEXT I:GOTO 626 
BS coe te iz * FETL IE} 
tPRINT tF=G:R=0 
"SPECIFY THE DESIRED CUTOFF FREQUENCY IN KILGHERTZ. 


"SPECIFY THE MIHINUM INPUT IMPEDAHCE IH K-GHMS. 


Fiske. Far 
F2=Fei.did 


PRINT 
PRIWT 


PRIMT 


?PRIHT 
"HERE ARE THE COMPOMENMT WALUES FOR THE "sF#s" FILTER 


"THE CUTGFF FREQUENCY IS “sF3" KHz.” 


2 
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PROGRAM HANES LOWPASS DESIGN - DACEY < CONT’D > 
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He 6 
ENA) 


me wt 
fee pe pe 


ee 
at 


MD 


a a ec Se ee Se ee Se ee oe ee 


a! 


7 
r 
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wr 
Mata 


rm 


Li 


a 
5 
od 
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a 
a 
“a 
= 
wat 
cr 
ik 
od 
nae 
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Lc MCA oC 
Wl ye cea 


oa ak a ra Pa 
Mal Ua 


pr 
pe, 


fy 


it 
Ub Wh 


ae, 
weet ee 


at LA > 
par 
ec | ee oO oe 


HUA RRR EERE ER BE LE 


a yt 


Fa et 
A Ac 


aa! 


ok rT a 


PJP eR md om 


ie 
eee ne Se a 
~.) tT. Fp fn 


Mt me me mat 
ma mo 


PRINT 

RETURH 
Case" 3 C4ga Cag="" 

IF CSc 1888 THEM CA3#=STRECCS 9S C3$=C3$+L24¢: RETURH 
IF C32=1@6@THEN CB=INT(Ca-H> 
CAP=aTRELCI 3 

S=LENCC4$ 3 i 81=xh-1 

IF C318 THEN Cif=" &.G@":GOTO 136 
IF C3186 THEM C3$=" G28" 26070 136 
48 IF CS<iSG@@THEH Ca$=" @." GOTO 1368 
| PRINT TABCS@o "eee EHD OF THE PROGRAM" 
4 FOR J=2TO Bi 

CS: “MIDS ¢ C4$.1,19 


a CRE+LiF 

RE TURE 

C3F=""IFCGR I=1TA 2 

CSE=MIDEC CHS. 1.19 

C3$=CSS$+C5$ 

HEXT I 

CSF=CSE+L LF 

PETURH 

FRIHT TABS S>"Da YOU WANT Tos" 

FRIWT TABS1IS2"1. DESIGH ANOTHER FILTER CIRCUIT 7" 
PRINT TABC139"2. ENHD THE PROGRAM ?” 

PEIHT 

FRIWT TABCS33 

LIHE INFUT "TYPE D FOR DESIGH OR E FOR END "sQ4 
IF LEFT#(@#.13="b" GOTTA 43a 

FOR IT=1TO S!PRINT :HEXT ItPRIWT TABS 2Z@0"*+END OF PROGRAM" 
PRINT PRINT ©: PRINT 

EMD 


CH><US<G> <S><O><F <M TSOCWOKASKRECE> <U>KO><L> IT 


PROGRAM NAME: BAHDPASS DESIGN —- DACEY 


BGG1G REM >>3352> OPERATIONAL ANPLIFIER FILTER DESIGN PROGRAM «+ 


G@GG2H REM 3333333 BANDPASS FILTER OF HOTCH FILTER < 


Rae de a a 
Oe Se 


sGese REM Pree eae COPYRIGHT 1975 BY FRANK DACEY < 


BEG58 REM ESE EE BY os FRANE DACEY * 

BEE aOR EE 

AAGEEe REM SRE 328 BARBARA DRIVE * 
Ae ESE SE 

BIGETE REM tsectststct: POINT PLEASANT. NJ @ar42 it 
HERE 

GHRBE REM LEAEEL PLES PP OPOPEE EEE EPP LE EEE EEF PEPE EE EP OEE EL PAPEL ELE 
BABI Fl=Z. 141 59° MN=1 666088: H=16888:L1i¢g=" MICROFARADS":L2¢=" PICOF 
ARABS” 

BALE FOR I=1TO 6:PRINT <WEXT I! PRINT TABOOS) eee STAB ISS § 
B11 FPRIWT "CRERATICHAL AMPLIFIER FILTER DESIGH PROGRAM RHE 
ak" 

GG12G PRINT TABC 24) "BANDPASS OR NOTCH FILTER” 

@G13@ PRINT :PRIMT “DURING THE PROGRAM THERE WILL BE OCCASIONAL P 
AUSES" 

Balde PRINT "TO ALLOW TINE FOR READING AND-OR DRAWING SCHENATICS. 
Ta u 

BG@15G PRINT "RESTART THE PROGRAM --- FRESS THE SPACE BAR.” 

@@1is@ PRINT =: PRINT "pda You WAHT INSTRUCTIONS OF DO ‘YOU WAHT TO EH 
TER” 

@G1i7G@ LIME IHPUT "THE FROGRAM ?? CI=INSTRUCTIONS--P=PROGRAM?... "3 
a 3 

Beis IF LEFTECo#. 29="F" GOTO 32a 

BG1l9G PRIHT = PRINT 

BOShe FRIWT "THIS PROGRAM. WITH VOURF ASSTSTAWCE. WILL DESIGH BAND 
FASS" 

@G218 PRIHT "AHO HOTCH FILTER CIRCUITS USING OFPERATICNAL AMNPLIFIE 
Ree 

BG220 PRIHT "THESE FILTERS ARE WARIABLE GAIN AHD. THEREFORE. VARI 
ABLE" 

G@GS35R PRINT "“BAHDWIOTH. THE GAIN AMD BAMDWIDTH ARE COMTROLLED BY 
OME" 

B24 PRINT "CONPOMENT WHICH WILL BE IDEMTIFIED LATER IN THE PROG 
RAR. 


SHoSU><G> <S>¢ ORC FRM TSECWOKASEROCE> §«6<U><O><L> II 


PROGRAM MAME: BAMDPASS CESIGH - DACEY 


BESTA PRIWT 


SG26G FREIHT "Yow WILL BE ASKED THREE THIMGS:" 

BelrTea PRIWT TABCS2s"1. THE TYPE OF FILTER DESIRED — BAHDPASS OF HO 
Teh s 

GG28G PRINT TABCS3"2. THE DESIRED CENTER FREQUENCY.” 

BESS8 PRINT TABCSS" =. THE MIKINUM INPUT IMPEDAHCE. " 

BEER PRINT = PAUSE 

BaS18 PRINT TABOR "seek OUR CHOICE OF CENTER FREGUEHCIES SHOULD BE 
seek 

G@GS20 PRINT TABS) "HO GREATER THAM 5S@G@ KHZ FOR THIS PROGRAM. 


PRIHT =PRINT i PRINT 
I PRINT "ARE VOU THTERESTED IH DESIGHIHG A BAHDPASS FILTER OR 


LIKE IHPUT "A HOTCH FILTER ? (B=BRHDPASS<“-H=HOTCH) ... "50% 
PRINT = PRINT "HERE IS THE SCHEMATIC OF THE CIRCUIT YoU CHOS 


PRIHT "COPY THE CIRCUIT AHD COHNECT ALL THE DOTTED LINES.” 
TP LEFTE*CG@#$.13="6" GOTO 4a 


4G39G IF LEFTS<(G¢.13="H" GOTO ese 

Ga40G GOTO 24a 

SG418 GOSUB 1254 

GG420 Ri=i-C2ePi+F4Cl> 

GGd3G RI=INT(Risig+. 53-1 

GG44G R2=1-¢S4eP14FeC1> 

SG45G RE=INTCRZ+16+. 59-148 

AG460 GOSUB 1390 

Sa47a IF F#="HOTCH" GOTO 51a 

BGdS0 PRINT "THE RESISTOR RZ SHOULD BE PARTIALLY VARIABLE. IN THI 
Ss way" 

@G49G PRINT "THE GAIN OF THE FASSBAND AND THE & CAN BE VARIED.” 
GG5GG END 

GG51@ PRINT "THE SGK POT CONTROLS THE @ AND THE GAIN OF THE FILTE 


PRINT "THE G IN THE SCHEMATIC INDICATES NC) CONNECTION. ” 
END 
PRINT #PRINT =PRIMT TABS) "sere" sTABCISD 3 
PRINT "OPERATIONAL AMPLIFIER BANDPASS FILTER setetetok 
6G FS="BANDPASS" PRINT = PRINT 
| PRINT TABC122"!"S:FOR I=1T0 26:PRINT "-"StNEXT I:PRINT "!"3 
GOSUB S4@:PRINT "C Rl I"s:GQSUB s4e 


KHOMUDKG>  CSDKODKFCTICWOKAPKROCED CUOKOMLE TI 


FROGRAM HAME: EAHDPASS DESIGH - DACEY < COHT’D > 


@@i9G@ PRINT "'"sS:GOSUB S4@: PRINT "C Ril J"siGOSUB S4@:PRIHT "!" 
66666 PRINT TABCI2)"!'"STABCS99"! "Ss TABCS29"!" STABCESI"!" 
BG618 PRINT TABCI2Z9"' "SS TABCI69"!'~-"STABCSS>2:GOSUB S4@: PRINT ” C1” 


B@G626 PRINT TABSS12s:GOSUB S4@:PRINT " C2"sTABCaao"!" 
BG636 PRINT TABCL29"'"S:GOSUER S48°PRINT "!"STABCIS>"—-"STABC229"—" 


Bee46 PRINT TAB. S99 3°G0SUB S48:PRINT TABCS1>::G0S5UB S4@: PRINT TAB 
coeen Geren TABE 163" 1" STREC 27 "=" STARS So)" !* STABCS 20° 1 SS TABS Go)” } 
BG66G PRINT TAHBC1639"!' "STAB. 1G9CHRE(3495"741 OGP-ANP” sCHRSC349 STABS 


GG67G GOSUB S4G°PRIHT "I "STABCS9O" "SS GOSUB S4@: PRINT "C RZ 1"5 
B6SG GOSUE S46:PRINT "FP 'STABCESa" PRINT TABCSBO"! | CAa"STABCI6? 


GG690 PRINT TAEC272"-"STABCSS2"!"sTABC399"!"STABCS2)"!"STABCES >"! 


uw 


GGPGG PRINT TABC2o"A"SEGOSUE S4GiPRINT "! !"siGOSUB S4G@:PRINT "!" 


BEF1G GOSUB S4G:PRINT "'"STABC ise '+"sTABL229"-"STABC SD"! "STAB SS 


BEF 26 GOSUR S4G:PRINT " Ci" TABCS1o"GHD"STABC eS"! "Si GOSUB 34a 
BEFSG@ PRINT "H" PAUSE 

GO746 PRINT " IN"STABCE2"! '"STABCIZ" "STABLIG2"!'—"STABCSSI" INS 
GOrsG PRINT TABCS993°GOSUE S4@° PRINT TAB. 659"! "SS TABCE? > "OUT" 


G@G76G PRINT TARC2)""sTABC112::GOSUB S4G:PRINT TABC35>"!"s 

GOP 7G PRINT TABC399"!" sTABCGS)"!" STABLES) "x 

GG78G PRINT TARC2)"!"STABCLLO"IRI"STABCS52"!"3:GOSUB S4@:PRINT "! 
GG79G FOR I=1TC 25:PRINT "-"StNEXT ItPRINT "!"STABCG9>"!" 

GGSGG PRINT TABC2)"!"STABCLL2" IS!" 3 TABCESD TE" 

AGSIG PRINT TABCZ2"'"STAEC1195:GOSUB S4@:PRINT TABC69>"!" 

G@GS2G PRINT TAB 29"! "sTABC12)"!"STRECegou te 

G@G83G PRINT TABC1)"GHD"STABC11>"GND"STABCE?> "GND" GOTO 416 

@G84G PRINT "---"s:RETURM 

G@GSSG PRINT <FRINT PRINT TABCS) "asteek" STABC IS) 7 

GG26G PRINT "GPERATICHAL AMPLIFIER NOTCH FILTER etetetck 
@ee7a FH="NOTCH"!PRINT SPRINT 

G@G38G PRINT TAB(459"'"s:FOR I=1TOQ 14:PRINT "-"stNEXT IfPRINT "!" 
@G29@ PRINT TABC1122"!"stFOQR I=1TO 13:PRINT "-"stNEXT ISPRINT "!"3 


PROGRAM HANES 


SG9GG PRINT 
SGG16 PRIHT 
nb pe +a if 

GEIZG PRINT 
G93 PRINT 


A946 PRIHT 


GGS50 PRINT 


BaSTe PEINT 
BESS PRINT 
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a 
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ey 
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Fi 
G1G28 GOSUB 
Beha; 
G1GSa GcOSsuUE 
GiG4de PRINT 
Bcis3s 
GiGSa PRINT 
WE izde 
GiGEG PRINT 
GLa? PRINT 
” par Ue 
at PRINT 
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Ma te Gt 
‘ao 


1 PRIYT 
@ PRINT 
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BPAMDPASS DESIGN - DACEY < COHT’D > 


THE C452" P'S TRB" '—" STABCGa)”** 

TABC ILO" P' STABCIS *1-—"* STABC 25)" !* STABC 23> "C1" sTABCSS 
TABS SS3"'" StGOSUB 124as PRINT "!-"sTABCS4)"-"S TAB. 66>" 
TAB C49 "CS" STABCI19"! "S32 GOQSUB 124G@: PRINT "!-"STABC19>" 
TABLZa7" YS TRB 292"! 


~ eRe So"! PN STABCI9)! STARS 


CHREC S422" 741" SCHRECS4 3 TABCSPIs:GOSUB 1244 
"I"SIGOSUB 12Z4G:°PRINT "!'"3:GOSUB L248: PRINT "x" 
TABCSO"! IN STABCLS" "TABS LP OCHREC S49 "741" SCHRECS4 
TABS 2295°G0SUE 124@°PRIHT "!'"S:GOSUB 124@:PRINT "! '" 


124G:PRINT "!"S:2G0SUB 124@:PRINT "! !"3:GOSUB 1246 
"I"SIGCSUB 1Z4@:PRINT TABC49)"!+" :TAECS4"—" sTABCE4 >" 
TAR<19"8"G:GOSUB 124@:PRINT "! !"Z:GOSUB 124@:PRINT " 


124G° PRINT "!+"STABC19)"—"STABCZ59"!"STABCZ99"! "STA 


'" STABCA5 2" 1" STABCAS99" !-" STARK Ed 
TABC6S2°S"2PRINT TABCI2"IN"STABCSO"! !"STABCIL9"!"sTA 
"1" STABC259"!" STABC34) s"!R!"STABC459"! "5 TABCGS) 32G05 


TABLES"! SPRINT TABLA "STABC IG os GOSUB i2z4a@ 
TABC]25 9" EOS TREC S49 "921" STABCSS) "9 STABCSS)"-! "STABCES 


TARC63)"!"2PRINT TABCL"!"STABCIG@S"!R!" STABC259"'"STA 
1Z4G:PRINT TABC45>"!"STABCSS9"—" 2 TABCS@2"+!"s:GOSUE 1 


"IGE" STABCGG)"!"E2PAUISE =PRINT 
TABS 12"! "STABCIG)"!3!"STABCZ59"!"STABCS59"!"s2GOSUB 1 


L248:GOSUB LS4G:PRIHT "O'S :GOSUR 1l24e@:FPRIHNT "!'"s:G0SuU 


TAB SSS CHES C349 ss" P41 SCHREC S40 STAB ISO" STAB GSO IK! 


PROGRAM HAME: 


@1i146 
@1156 


@1 288 
B1218 
Bi226 
G1236 
Bis4e6 
G@1258 
Biz6e 


Woe 
+ 


gi 2Ta 
B12e6 
"oR 
61296 
41386 
WHEN" 
Gizia 
G1 328 
St 
G1L23a 
1356 
G1 346 
G1 256 
81768 
BL3ra 


2S ti 


4 
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my 
Nf ty bee 
tye me et ha me me 


ae 
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mt 


PRIHT 
PRINT 


FRIWT 


PRINT 
PRIMT 


PRINT 


PRINT 
PRIHT 
FRIWT 
PRIWT 
PRIHT 
PRINT 
THPUT 


FRINT 
INPUT 


PRIHT 
FRIWT 


PRINT 
IF Fé 


SPOKE SCT OCWOCASCROKE> <U>KO7<4L> II 


BAHDPASS DESIGN —- DACEY’ 


TABC 6S)" I" SPRIWT TABC LO" "STARS IG@9s:GOSUB i24a 
TABL ZS"! "SE TABC SES "C2" STARS S49s:G0SUB 1248: PRINT TABC 


"IE" STABCA99"!" STABCSS2"—"TABCS@)"-!~-! ---"STABCES)"! 


TREC 12" "3 TABC L192" "STABC25 2"! "STABC34) 5:GOSUB 1246 
TABCA5 3" "STABCASD" STARCS@9"—-! I" ETAECE4)"! "STABLES 


TABC19" "3 TABCL19"!" STRBC259"!"STABC352"!" Ss TABCASD "I" 


TABC499"!"SsFOR I=1TO 11'PRINT "~"StNEXT IPRINT "!"3 
TAB C649"! "STABCESD "I" 

" GND" STABC 1G) "GHD" sTABC259"!--0 Ri J-!-£ R1 J--!"5 
TABLES "GND" STABCE?) "GND" ?GOTO 414 

~--" 3: RETURM 

:PRINT F=0:R=0 

"SPECIFY THE DESIRED CENTER FREQUENCY IN KILOHERTZ. 


"SPECIF’’ THE MIMIMUM INPUT IMPEDAHCE IH K-OHMS. 


tPRIWT 
"HERE ARE THE COMPOHENHT VALUES FOR THE "sF#:" FILTER 


“THE CENTER FREQUENCY IS °sFs3° KHZ.” 


1G THEN Ci=.G@1iCif=" @.G@1"+Litice ps @.8@2"+Li¢i:GgaTa 13 


IF F3lG@THEH Cil=.@8@1°Cis=" 166 "4LeeiCcet=" 26 "+L2$:G0TO 


Cl=.GG1°Cig=" G.GA1"+lLitiCeg=" &.8@2"+LiFt 
RI=RiCI=INT* 1a CPL KERR 

IF Cac iGG@Ge THEM CAf=STRECCI9: CAS=CIF+L S$ 
IF C2S=18668@ THEM CS=IHTCCS-HotGdsue 1484 
RETURK 

PRIHT <PRINT :Ls3é=" hk OHMS" 

PRINT “THE VALUE GF Ri IS “ski SLs 

PRINT “THE UALUE OF Re IS "ERESL S$ 

PRINT "THE VALUE OF RS IS “sRSsL3$ 

PRIN? “THE UALUE OF Ci Is “FCrs 

PRIBT “THE UALUE OF C2 15 “sC2s 

PRINT “THE VALUE OF C3 1S “sCsae 


an) 
wi 
ia fy 
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PROGRAM WANE: BAHDPASS DESIGN - DACEY < COHT’D > 


PRINT =! PALISE 

RETURH 

icots au H Ceb $= ae . Cas= nn 

C4E=STRECOSS 

NeLENCC4$9281=K-1 

IF CB<1@ THEN C3¢=" 6.0" 

IF CB>=1 THEN C3#=" G."2IF C3>=196 GOTO 1596 
FOR I=ZTC M4 

CSE=MIDECCA$,. 1.19 


Coes Be i 


ak 
ee ee cc 


i LU oO Ca CA oo fe he 


Ech a a rt 
sa Fak ae EY Es 


= 
mt 


CN fe. Ob Pa ag ot moot 
= my 


a C3$=CIs+CSs 
Gi56G NEXT I 


wet 


CR$=C3$+Li¢ 
RETURM 

CBt=""iFOR I=1Ta 2 
CSE=SMIDSCCA$. 1.19 
CRC SS+C5$ 

HET I 

CSP=2C3$+L14 

RETURN 
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FROGRAM NAMM 


SGeGia REM 


SLL SS 


aGa2G REM 
GGGSG REM 
LELKE 

aeada REM 


Pal & a “ rial 


GGG56 REM 
EK EE 

GGG6G REM 
MEE Eo 

G667G REM 
shok kok 

8@636 REM 
86099 C=8:L 
661686 FOR I 

GG118 PRINT 
RINT 

86126 PRINT 
AUSES" 
G@G156 PRINT 
Ta" 

@G14@ PRINT 
6G15G PRINT 

TER” 

@166 LIWE 
@6176 IF LE 


<S><KOSKF PM TOMWOKASKROXE> «<U><OOKL> II 


E: AMPLIFIER DESIGN — DACEY 


PPPOD PD OPERATIONAL AMPLIFIER DESIGH PROGRAM 4 
>>>3> COPYRIGHT 1975 FRANK DACE’Y <s 
sea BY: FRAHK DACEY’ abet 
MEE Efe 226 BARBARA DRIVE HEE 
SESE HEE FOIHT PLEASAHT. HI Ber42 ad 
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2$=" K GHMS"'Las=" E OHMNS"'F2e=" KHS” 

=1T0 4: PRINT 'HEXT IS PRINT TABOOS) "ace" STABC LSD 5 
“OPERATICWHAL AMPLIFIER DESIGN PROGRAM see SP 
?PRINT "DURING THE PROGRAM THERE WILL BE OCCASIGNAL P 
"TO ALLOW TIME FOR READING AHD-OR DRAWING SCHEMATICS. 


*RESTART THE PROGRAM --- PRESS THE SPACE GAR." 
?PRIHT "DO YOU WAHT INSTRUCTIONS GF DO YOU WANT TO EW 


IHPUT "THE PROGRAM ? {I=INSTRUCTIONHS“P=PROGRAM>..." 205 
FT#i 0. 19="I" GOTO saa 


@G1S8 IF LEFTS<G$.19="P" GOTG 448 


GG19G PRINT 
6200 FRIHT 
GG21G PRINT 
E TYPES" 
@G226 PRINT 
PUT 15” 
GG236 PRINT 
TING" 

G24 PRINT 
UT. AND” 
GA25G PRINT 
HAS AN" 


'FRINT "LET“S TR THAT AGAIN": GOTO 156 
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GB260 PRINT "INVERTED OUTFUT ALSO," 
BE27S FPRIWT <FRINT "YOU WILL BE ASKED FOUR TH 


THOS: " 


GG238 PRINT TABSS9"1. THE TYPE OF AMPLIFIER YOU WANT TO DESIGN." 


PRINT TABS S9"S. THE ANOUNT OF VOLTAGE GAIN VOU DESIRE." 
PRINT TABCS2"3S. THE MINIMUM INPUT IMPEDANCE. ” 


a2a0 
BEl18 PRINT TABLSo"4. THE HIGHEST FREQUEHCY VOU WANT AMPLIFIED. "5 
? PAUSE 

BaS20 PRINT =PRINT 

GG336 FRINT "THE PROGRAM WILL: " 


86348 PRIHT TABSSO"1. DRAW A SCHEMATIC OF THE CIRCUIT VOU CHOOSE. 
BESS PRINT TABCSO"S. PRINT A LISTING CF ALL COMPOHENT VALUES, " 
HEI6E FPRIHT TREC "3. STATE THE FREGUEHCY WHERE THE WOLTAGE GAIN" 
BEATE FPRIWT TABCS3 "95S DOW THREE DB. CAMNPLIFIER BAMDWIDTH>” 

BASSE PRINT TABCS3°4. STATE THE VOLTAGE GAIM IN DECIBELS. "! PRINT 
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BASSE PRINT = PRINT 
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BESTE IF ASe GOTO 828 
BUSS IF Aad GOTO Sia 
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GGETE GOSUB 950 

GG6SG GOSUB 1206 

GESGR GOSUE 1336 
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BEY TE PRINT "R2 SHOULD BE REDUCED BY AN AMOUNT EQUAL TO THE INTER 
HAL” 
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PRINT "STATE THE HIGHEST FREQUENCY VOU UIBNT THE 
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GOTO 1266 
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PRINT TABCSO"R2= "sSR2sL2: 

PRIHT TABSSo"RI= "SRSsL4$°C=G 
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BAGG FOR T=i1TO 6:PRINT tHEST TiPRIWHT TABS) "ose STABC LS & 
BGLliG PRINT "R-C PHASE SHIFT OSCILLATOR DESIGH PROGRAM eK 


fe FRIHT =< PRINT "DURING THE PROGRAM THERE WILL BE OCCASIONAL FP 
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38 PRINT "TO ALLOW TIME FOR READING AHD-OR DEAWIHG SCHEMATICS. 


GG146 PRINT "RESTART THE PROGRAM --- PRESS THE SPACE BAR.” 

BEiSG FRINT = FPRINT "DO VOU WAHT INSTRUCTIONS OR DO ‘YOU WANT TO EN 
TER” 

fG@16eG LINE IMPUT "THE PROGRAM 7 <I=INSTRUCTIONS-P=FROGRAM> "30 
BGlYG IF LEFT#*@$.19="F" GOTO 418 

@18G PRINT = PRINT 

198 PRINT "THIS PROGRAM WILL. WITH YOUR ASSISTANCE. DESIGH R-C 


att! mo eee 


BE208 PRIAHT "SHIFT OSCILLATORS USING THE TYPE 41 OPERATIOHAL AMP 
IFIER.” 

G@G@216 PRINT "FOR BEST RESULTS USE GOOD QUALITY FILM CAPACITORS AN 

GLOW" 


BOSSE PRINT "TOLERAWHCE FILM RESISTORS. OWE GF THE RESISTORS SHOUL 
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BESS PRINT "MADE UARITABLE SO SHALL FREQUENMCY CHANGES CAH BE MADE 


¥E 
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@8256 PRINT TABCI52"1. DRAW THE CIRCUIT SCHEMATIC. " 


BG266 PRINT TABLiS2"2. LIST COMPONENT VALUES FOR THE CHOSEN FREGU 
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GO290 PRINT TREE) “HKREMENBER - VOL MUST ALSO CONNECT PLUS 
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GGSGG PRINT TABCS)"e4ePOWER SUPPLY VOLTAGES IN ADDITION Ta 
HEF: Fe oe oe 


@G51G PRINT TABS SO" COMPOMENTS SHOWN IN THE SCHEMATIC. AY VOL 
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GG46G IF F<1G@GG THEN C=.G1:C#="G.G1":GOTO 4940 
GG47G IF F<=18GGGG THEN C=.GG1:C$="G.GG1":GOTO 496 
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@@S76 INPUT "SET EXACT SECOHD (PRESS “RETURH” AT MARKO "ST 
GG238 PORE sles t 

BG29G INPUT "SET MIHUTED "ET 

G@6468 PORE 2777S T 

G@@41G S=T+ii IF = > 33 THEN 2@=2-86 

66426 INPUT "SET HOUR: "SF 

BE428 PORE 2FPF rs. T 

S644@ LIME THPUT "AM GR PM? "Sth 

BG45G IF OF =< "PF" THEN FORE 2FPsi.@:60T0 478 
GG46G PORE 2°FS1.255 

66476 REM DISPLAY TIRE 

Be4sG FOR I=] To il 

GG496 PRINT 

GEtGG HEAT I 


Bo i126 


CHECUDKGS <SOKOSM PORT ONES APCROSE> <URKOS<L> II 


PROGRAM HANES BASICLOCK - KERH < COHT“DB 


@G51G H=PEERC SPP FS 
Q@Gl26 M=PEER CSP SPS 
BGS38 Pkt 3 
GE5468 rel 
BG@S5G FPRIHT TAB 2G) g 


"6G IF H < i6 THEH FRIWT " "3 

—ar@ PRINT MIDSCSTRECH). 2asTHei seo gS 
@see IF M < 16 THEM FRIWT "a's 
GOS90 PRINT MIDECSTRECM). SIs TAB Stash i ss 
Beeeea IF C < 18 THEH PRIHT "e's 
6G618 PRINT MIDECSTRE( CD, SIS TABC 2): 
GG626 IF F < 255 THEM PRY HT "ALM. "3'G0Ta 64a 
GG@630 FPRIHT "PJM. 3 
eGe4d@ FOR I=1 To 15 
BG6560 FRIWT CHRECa3 
BG66a HEHT I 
GGFR PAUSE SAE 
66686 IF M <> 2 THEH Sia 
BEE REM 


BE7GG REM IT IS HOT WECESSARY TO RECOMFIGURE THE BASIC INTERPRETE 


RO OWITH 


G@G°1G REM THE FOLLOWING VALUES AT THE EMD OF THE PROGRAM RUH, 


THESE 


- BE725 REM BYTES ARE LEFT AS THE’ WERE SET IM .THE FIRST PART 


is 


G7 3G REM PROGRAM. THE TINE-GF-DAY CLOCK WILL COMTINUE TC 


ER 


GO740 REM BASICLOCK HAS EWHDED. HOWEVER THE BASIC INTERPRET 


us Tf 


GGF53G FEM BE RECOHFIGURED WITH THE WALUES GIVEN IH THE HEH 


HSE TRUCT IONS 


G@G76G REM BEFORE A LOAD OR DUMP TO MAG TAPE [5 ESECUTED, 


G@G7FE FEM 
HES Se FORE & 
GarSe PORE 

BESEE FORE & 
age 1 Pik 


IF 


iF TH 


RUM AFT 


<H>KUDG> <SECORME OK TOCMECARKRESE? <UDKODKLD TI 


PROGRAM HAME? TEXT HANDLER - GREENHALGH 


G6GiG REM TEXT HAHDLER - ROGER GREEHHALGH 

@6626 REM LETGH Net. 
@@G36 INPUT “HUMBER OF LINES "GF 

G6G64G DIM I$ths.G€¢F 2tnH=1i e=84S7 

66658 INPUT "LIWE LENGTH "EL 

66668 CH="" :C1=G:C2=6 

@667@ LIME TMPUT "COMMAHD "sce 

@GESG@ IF C#="H" THEN PRINT THECLa"*"iGoTad see 

BGG9G IHFPUT "FROM "sCi 

@@i1GG IF Ci=@ THEM Alsi: AZ=H-iiGotTa i4e 

@G11@ INPUT "To "sC2 

@G@12G@ IF C2=8 THEW AL=CltAz=CitGoTo i146 

GG136 AL=Ci:Az=C2Z 

@614@ IF C#="I" GOTO 33e 

Be1iSG@ IF C#="U" GoTa 
66166 IF t#="I" GaTA 
6617@ IF c#="F" GoTa 
9@1e@ IF c#="0" GoTo 
6619G IF t#="E" THEH 
66266 IF C#="M" GOTO 
66216 IF C#="C" GOTa 
66226 IF C#="S" GoTa 
G@G23G GAT 66 

66246 INPUT "GaTO "sCl 

G@625G@ IF Ci<>@ GaTa 31ie 

@6266 PRINT "IMPUT" 

@G2760 LIHE IMPUT sIteh> 

GG286 H=H+1 

O6294 IF If{H-13="ERXIT" THEM IftH-1Lo=""1GaTa se 
Beszeaa GATTO 2re 

G@G316 LINE IHPUT "“IMFUT"SISiC13 

BES26 GOTO 66 

BGSSG FOR A=AHl TO AS 

G@G34G PRIAHT As" "Isc 

GE356 HEST A 

Bes368 GOTO 6h 

6G@376 INPUT "“IHTO "sts 

GE23G FOR A=Hil Ta AS 

GGS90 OFC CIt+A-Al 2=GE¢A2 

GE4GG cecRqo="" 

66416 HET A 


age ted 


Co wo 


—- 
om 
Coe Se my AS ea or 


ta cy IT oh ON te de 


= ha 


PROGRAM MANE: TERT HAHDLER - GREEWHALGH 


Bas 28 
Bade 
Abd 46 
BG458 
Ba458 
G47 
Haden 
Bae Se 
BBSee 
G51 
BASS 
ABSSa 
BE S48 
GaSe 


GOTO 8 

FOR F=A1l TO AS 
LET S#=T4tF > 
GOSUE Lede 

LET T$¢Fo=54 
HET F 

GOT 23 


FOR F=Ail TO AS 

LET b= TcbtPr 3 

BOSE Sie 

LET O#F¢F :=5¢ 

HEAT F 

IF S3£="" GOTO 6eg 
AZ=AZ+ 1 
SES" " SGOSUE ale 
CFA SSEs GOTO Sae 
FURE 2.865 FOQRE £+1,.142 
FOR A=AL TO AZ 
PRIHT CECAD 


‘@ HENT A 


mm ~. 
EAE 


BHT EE 
BaF 1e 


Berse 
Gere 


BASLE : 
AaR2E 5 


PORE 2. 7StPOGRE 241.32 
GOTC 6& 
FOR ASAI To AS 
CecAosTEtA 
HEMT A 
FOF Fist To ac 
PRIGT Ag" "Steet as 
HEMT A 
GOTO Aa 
FOR S]=fi To oe 
OFCA=LECAD 

. L Ao 3 


FOR Fei TG D 
1 Oe 
HEMT F 


i HEAT Fi 


* COHT’D 


PROGRAM HWAME: TEST HAHDLER - GREENHALGH 


BESS 
Bese 
G6S56 
GHsea 
SASS 
Si Best St 

GOS 38 
Be 308 
B31 
BE9Z6 
BEISE 
6E348 
Sf Sa bad 
S366 
sieee 
Boeen 
1866 
G@1G1G 
BiG26 
@1 G38 
i646 
1656 
BLlG6e 
Bie7e 
616846 
AL1e36 
1186 
@1iig 
81126 
@1is6 
@1146 


IF EXL-1@ THEN RETURN 
IF B=L THEN RETURH 

IF BSL GOTO 376 
C=L-E:S=1 
FOR fel TOE 
IF C=@ THEN 
SIf=MIDSCSS, 
IF Sige3" " 
IF S=1 GOTO 


c= Sp F+" We 


Bd 


S2$+RIGHTS<S$. B-A+ 


ae 


aad 


fb fsb a 
P de tae ; 
ee ee 

nt 

i 

ted 

pea 


{f 
rm 

| 
‘how 


yy 
4 
it 
+ 
iy 
9 
i 


= NEXT A 
C>@ THEN S=i:S5#=S2e:G0TO e268 
S2¢: RETURH 


1 TA 


uy TT Ly re Ly an 


Une 
rs 


=MID$iS$.B-Atl. 13 

IF S1$¢>" " THEN ASA+i:GOTO 386 

IF B-AbL THEN ASASi:GoTo Fac 

G3$=RIGHTS(S4-A-12+" " 

St=LEFT#(S#.E-AD 

GOTC s2e 

B=LEN(S#):S2¢="" 

S=G 

FOR Az1 To & 

Si$=MIDS<S$.A, 1) 

IF Si#="(" THEN S=i:G0TO 1120 

IF S=@ GOTO 1116 
SI$=CHRS*ASCOS1$24329 2528 
S2e=S2$+514 

HEXT Fi 

S$=S7¢ 

RETURH 


< COWHT“B 


RETURH 


E 


ise 


CHECUEG? CSCO PRCT HCW CADE ROCED <UREODKL TT 


PROGRAM HAMEED IHTELLIGEHT DISASSEMELER —- WARMER 


Ae REM sso THE “INTELLIGENT S@ae DISAS 
PRIHT iPRIHT =PRIWT "THE “INTELLIGENT” 


a 
WARN] 
1a 
a en Ke 
oe 


16628 FRIWT ” BY? JAMES C. WARMER" SPRIHT tPRIM 

Bese CHE VIP E=""ICHTRL 8. eseeae 

1@1GG@ LINE INPUT “START? "SFEIGOSUB BISGGI1F LEH P$246 GOTO isle 
14116 S#$=<F$:5=P 


1G26G LIHE IMPUT “EHD? "SF$:G0SUB 65208:IF LEH¢P$)<6é GOTO 1azeq 
1G@21G ES=PS:E=P:F=5 

1@3G0 IF S>E THEN PRINT "ERR! START > END":G0TO igiaa 

1440 LINE INPUT "MODE? "s1$¢C$=LEFTS(1€.19:1F If="SYMNBOLIC” GoTo 


SABRE 

i@i@e IF [$< >"ABSOLUTE” GOTO 1e44ae8 

13992 REM 

is999 REM a ABSOLUTE see 

2688G LIKE IMPUT HGY "SFEIIF LEMS F$o<231 GOTO 2heee 

26168 GOSUB essae:Aig="" 

26268 Q1F="" OSU Shee 

263660 IF LEFTS(A#.33¢>AH1$ THEM ALS=LEFTECAS. So2PRINT Ald "1. ee eee 
2G4G0 A=" "4h IDEA. 000M T+l GOTO 28688. 26688. 2689. 2o508. 26508 


» 20508. SSSR 

24508 AS=FEtHMIDSLAE. S22 1F T=2 THEM @1$=a3+"H" 

2B6G8 CW L GOTO BBG. SSoee. SET ee 

ZEPFOO OLE =ORE+OS St "A GOTO Saas 

ZESHS LL Fosse to 

REM !' PRIHT DISASSEMBLED LIWE ! 

PRIHT A$ " " OF TABS ibs P=F+LiIF PLE GOTO Zesee 
GOTO 85534 

REM 

REM ase SYABGL TT act 

As IHFUT “HUALIOG LO ve* HIP "ster MIDSCls.7s1oee"r" GoTa 


Dc) 


oe 
rete dee Ce ate ae gt a 


Ps 


ta bo Bo ba bob 


“IF LENCI$3“<313 GOTO 3eH 
SIF=LEFTS(1#.63:FS=51 

ELS=RIGHTS(I$.621PS=E14 HE 
IF SI#2E1$ THEM PRINT "ERR! LO > 
His="SYMBOL TABLE ":iick=" IN PROGRESS... °°PRIHT "PASS ONE" 


CO a hed te al 


ASIF LEMCP$)<6 GOTO 2ecen 
WsIF LEHCF: FE GOTO SeAee 
HivequTa BAAS 


nak 


Sy 
GlG G m t oo eh 
me 


pt: we OR td Ba ee Et ut a ut 


tl ted tl Ze tal Gel Ce ted 


i ch mi bo 


G@ Ti=VALCSS(9 941 
@ FOR I=@ TO T1:S$¢D=""'NERT 1 
AG WG=ss dds kee 


Bo ded 


PROGRAM HANES INTELLIGENT DISASSENBLER - WARNER < CONT “D 


S993 REM 
SG999 REM et SYMBOL TABLE CREATION sce 
31608 SECHI=STREC SIE TS= "LI SEC LOS CHES i o+SStT Et SEC SO SCHRE LL t+ES+T 


$1160 GUSUE SGGGe:P=P+L:IF P<E GOTO Z1ise 

31998 REM 

31999 REM 4 SYMBOL TABLE EVALUATION ss 

32000 PRINT tPRINT Ni¢ "EVALUATION" Hees 

32699 FEM ! POINT TO START ! 

3216G FOR I=1 TO WALCS#¢G2 951 MIDSCS#C1). 2.69458 THEN NEXT I 
32139 REM ! PRIMARY EVALUATICN LOCF ! 

32200 FOR ISI TO WALCS#¢@921F MIDECS$C12.2.63¢E8 THEN GOSUB 49aG 
@: IF Ti19<2@ THEM NEXT 1 

Z250G IF MIDSCSH#ECI3.2.623=E% GOTO Baeee 

32399 REM ! GOT NOH-BRAMCH ENTRY | 

32400 [Z=1iPE=MIDE(SECIZ). E.62:GOSUB SogaGsS1= 

32508 [Z=12+1:F$=MIDS(SH$(IS). 2. 60:G0SUE észea: Et =PiTisa 

32699 REM ! GOT POTENTIAL “DATA RANGE | 

S27GG P=S1iGUSUE SPGGG:Si=Si+LtIF SicEl GOTO S276 

32714 IF TisG GOTO 3 
S2P28 IF Ti=@ THEN S#¢ $02 0+MIDECSHCIED. 222GOTG SEs88 

$2789 REN | GOT CONFIRMED “DATA AREA | 

BEP9G SHCIZI=CHRECSIFMIDS(SHEL 12). 22 PSSIDECSHCIS). 2,.62:G05UB 653 
Ga: S1=PsL=e 

32799 REM | RE-RE-DISASSEMNBLE “DATA 
32806 F=P+LiTi=G:GOSUE ST@Ge:Li=Lil 
2858, 32518 

32816 IF Tit@ THEM IF ASS SNIDSESHCIE). 2.69 THEN T$="3"9GOSUE Soee 


@:GOTQ 22268 


Fi 
PLES THEN ON L GOTO S2a60.3 


s2oi9 REN ? DISASSEMELE EYTES 2-2 TP MULTI-BYTE INSTR S 2 

32826 P=P+i:Ti=8: GOSUB STEERS TF Tisa THEN T$="3" 2 GOSUB Seems GOSu 
B SOeGG: I=12+1: G0 TO S22Re 

32838 P=F+iiTi=g: G05 SUE STeG@GSTF Tice THEN TH="S" 5 GOSUE SaeeG: GOsSu 
B SGGGG2T=[S+i: GOTO 32288 

32936 SI=SI+LiilF SitEl THEN F=SitlL= 

S2699 REM ! CHE FOR ADOT“L EWMTRIES a 

S2966 IF ISCUALCS$¢@99 THEM IF MIDSC(S#(132.2.69¢E$ THEN I=I3: GoTo 
22 2b 

~2793 REM 

32999 REM e+ SYMBOL TABLE LABEL ASSIGHMENT + 

SSGGH PRINT iFPRINT Hid "LABEL ASSIGHPENT" Hoes 


i 407-t 
a eecr 


YY 


<H>MUMG> <SPKOPE MT OCU PS 


PROGRAM WAME: INTELLIGENT OISASSENBLER 


33166 FOR T=1 To VALES 


G@: S#C1=LEFTS*S$613.3 


ooi39 REM ! EMHTRIES Tu 


Sis 
ooelG IF LEFTSC(Se. lox! 
I$: GOTO 33298 
So226 IF LEFTS*¢S#ilo.1 
I$: GOTQ 33258 
SS238 SEC TO=LEFTS(SS4 1 


25 iF 
a #1 

fs oToermrT 
Ee ET 


SSIlHE ge 2 


Ny 
fer a 


S529 T=I+1li IF MIDs eSér 1d. 2. 


soeee MEM | ENTRIES 


o"tISiNEXT I 


33998 REM © 


33999 REM + FINAL SVMECLIC FASS 
34GG0 FS="N"IPRINT <PR : 


f= mon 


34699 REM ' PRINT EAT LBLS UP TO 5 


34166 FOR Ti=1 TO WAL 
G@G2HEXNT TL 
S4i39 REM ! SET ORGIN 


S4288 PRINT LEFTS°S$.3 


34300 LOS=MIDSCS$CI 1, 


* EMD = ie 
S538@ FOR [=I TO VAL CSé0 eo os GOSUB 


DHT OF THA 


S$eelo as IF 


! 


2’ "." RIGHTSCS 


ms 


oy Cie 
iia pos 


S4399 REM ac INSTRUCTION DECODE 


SSQGG LES tL pee "tote" GOB Bae 
9,2,.62 THEM GOSUB 
Peo Zaha GOTO SaaS 


Lo=CHR As 32 


SolG@ IF AFoNIDées#cTd 
SvZ2G8 IF AS. oNIDScSec] 
sJoO8 IF LEFTS<S$¢112. 


35400 LE=MIDSCSEC11).¢ 


Sas8@ IF T=3 THEM Li 
SS6G88 CH Lo GOTO ZAP ee. 


set ty expen oe, 


S5616 GOSUR +1 eee: GoTo 


SSe26 OLE tes+0n" 
S2699 REM ? FRIMT GIS 
BOP AA GOSUE 45oGee F 
Lis O13 


seTislitt 
$4 Q" 4H 


art 9 

we A 
sep gie chee he, 5a 
EP EH 


mime PE Py 
tenth FRILL bo be 
mie See 


S571@ P=P+Lt1F PXE GOTO ssa 


Sor 28 GOSUE BABEE 


35730 IF ASPMIDSCSECIL9. 2.62 


TO Sirsa 


sorg? KEM | PRINT REMAIHING EXT LBL? 


>, 2.6265 THEN 


SP$UTI=LEFTS( See To. 


435668: G0TO 35 


GOSUE 4saG 


Toe "RTH 


SPOT URE + 


GRE F 


GOSUB 4° 


es ot Oc 


os 
ole 
we 
SS 
% 
a 
ui 
ia 
=r 
-4 
al 
hi 
“I 
rr 
ro 
red 
bod 


PROGRAM WANE: INTELLIGENT DISASSENBLER - WARHER < COMT“D 


S58@6 IF LicUALtS$¢G5> THEM GOSUB 47a@ee:li=li+isGoTa sasee 

3u899 REM ! PRINT EHD STMT ! 

S986 A=PIGOSUER 6GE5GG:PRINT LEFTS°A#. 32 "." RIGHTECA$. 3) TABCSES 
"END "™ LS 

35996 GOTO 65534 

S6GGG REM ++ DATA DECODE ++ 
36166 GOSUB 4@@G8:PRIHT THESE) s 


36266 IF AS=MIDECS#CT1s.2.65 THEN PRINT AIDS CSSc Tio. ooas]i=listi 
S636 PRINT THBCSG> "DE " "GM IPSFP+1LIGOSUR BEE 

S65G@ IF AS<NIDS(S#i115.2,62 GOTO 2é6i8e 

36606 IF A=MIDECS#CT12.2,69 THEN IF LEFTS¢S$¢ 51>. 19=CHRE¢3> GoTo 


26148 
S6966 GOTO 25888 


S999" REM 
39998 REM sets SYMBOLIC SUPPORT etc 
39999 REM «+ LINE PREFISER +# 


4GG0G PRINT LEFT#(A$.3> "1" RIGHT#AAE. 32 " "9 OF " "SERETURH 
48993 REM 

46999 REM ++ LABEL RETRIEVER set 

$1666 FOR I=1 TO WALS SCR oot TF Sete PNIDEC SEC Io. 2.89 THEN HEXT 


41160 IF ISVAL“S$¢8o> THEN LIf=Q3$+029+"R" +e RETURN 
41266 LIS=MNIDECSEC To. S32 RETURH 

42999 REM 

$2999 REM see CATCH-UP EQUATER tt 


43000 A=PIPS=MIDECSHCT19.2.69°G0SUB SS3GG:I=F-AIGOSUB 4eaee: P=A 
431GG PRINT MIDS(S#¢119.2.3) "J" MIDS(S$C119.5.3) TABC222 MIDS<se 


£119.83) TABCSG "EGU #" T$iTi=lit+tisRETURH 


REM + TABLE IMPACT IDENMTIFIER -+ 
FOR Til=@ TO 4:T¢Tio=G@:HExT 11 


46999 REM 
46999 REM a EQUATER 
47G0Q PRINT MIDS(S$(119,2.39 "2" MIDSCS$C119.5,3) TARCZZ) MIDSCS$ 
€119.8) TABCSQ3"EOU " MIDECS€C113.2.62 ° 
A": RETURN 
4799 REM 
4P°399 REM ++ LABEL SUFFIRER a 
$3668 IF=STREC TOI ITS=LEF TEC LF. LENS Tfoa-Los I$=RITGHTECI¢, LEM VI #3-1oik 
ETURN 
48998 REM 
99 
04 


B is4 


CHSUPCGS “SSOP SCT WAR E> SOLS OTT 


AER see EYNEOL THELE BUTLD NAVE ace 


$9188 FOR Ils ae LEMONT Dec sd Saab Pe TOMALES MIDE Seo ba. Dh. daa oeT 
CUALOM IDES S$e 72 2 LOLS HERT “Tt 

492 RE TUR 

4399 REM 

499 E 

SE 


ow Gag yh a Mm 


SS ON Gada so oon 
“a a ma Ea ao oo ta + 


GOSUB BREED OM T+l GOTH DOSE. SEP RA, TEP RE, SISRE. SESE. See 
sho Set 
pal ba T$="] "CAS =ESStH SES GOSUB Taek: Tes" 4" 
SHEE ASP+Li GOSUR SESE GOTO Soe 
TEPER AF=OTE+SS 
TH968 REM 
s4999 REM cet SYMBOL TABLE UPDATE s+ 
soe FOR T=1 TO VALSSS eat TF AIDE See To. 2.8088 THEN HEAT 1 
20899 REM ! UPDATE EXISTING ! 
solG@@ IF AS=NIDSCSECT3,2.69 THEM SéeTo=Se0Da+Te GoTo Sasee 
so2hG IF ASIN IDE (SéiTo.2.89 GOTO Sh4ee8 
Doee? REM ! ADD HED LAST ! 


SoHE SFC TI=CHRECLI+AS+ TSI SSCS eSTREC To GoTo S53ee8 

Jooe9 REM ! SHUFFLE DOIN ! 

WI40G FOR TISVALCSSt@oo+)] TO LT STEP ~-liseelio=Séeli-LosHExT 11 
32499 REM ! INSERT HEW ! 


Soe Sb. TS=CHRS. LO+tAS+TSi SEG SRSTRECVAL OSH 09 a+) 5 

SoSH RETURM 

3699S REM 

S6999 REM a4 THSTRUCTION EVALUATOR a 

“FT GGG GOSUB BEEEEI ON T+i GOTO SPS8e. SP Lee, AP S88. SP IGE. SPS. SP 1LeG 
OP 468 

SY i@@ IF Q3e+G2$e=51$ THEM iF G@3$+023<=E1% THEN Tl=TitWi:GoTda ary 


SP 11@ Ti=Ti-thieWeorGoTa SPsee 
sree TF S$+S erage THEN IF G@3¢+022¢2E1¢ THEM Ti=TithW2:G0TO oro 


SP21G TisTi-cW2-Weo:GOTO SPs 
SPSGG Ti=Ti-ckiehieo GOTO SP 
ST4GG Ti=Ti-ch eel 

RETURM 

REM 

REM eek UNIVERSAL SUPPORT eee 

REM ak FULL DECODE #« 

T=PEEK CP): flap i G2$=" "5 0Se="" 

GS=LEFTSATECID. S2tL=VALCMIDS¢ THC 19.64.1998 TESMIDSCTHECID. 5.1) 
Li TS) 10#=MIDECTHCT?.S990N L GOTO 6e5 


(Tr 
oa) 


a7 mt ht a age ag 
a ick KAN Oe 


we iT Oh UT on on on 


AQ Qing gy 


i pet OE GT Gy AE uh 


SHeSUS>SG> <SSCOPE SCT PAWS ARSED 6 <UEKOPKL SS OTT 


PROGRAM HARE: IHTELLIGEHT DISASSENBLER - WARNER 


68. 68408, 66388 
6G30G OCSS=LEFTECTEIPEER SP +20 2 
ce4H0 GSESLEFTE( TEC PEER CP +1 99.32 
6H56G AS=LEFTEC TE (INT CR 25899, 2% 
d, 3. (RETURN 
64993 REM 
64999 REM «+ CTL-B PROCESSORS so 
B5eeG IF F="" THEN RETURN 

SiGe IF CHOS"A" GOTO 654he 
60169 KEM ! ABSOLUTE ! 
B511@ LINE THPUT "P="SPE5GOSUB Ba2ee° TF LEHCP$oce GOTO BS11e8 
5126 ALlF={""IGOTO shee 
65199 REM | GETAL EDIT ! 
65260 IF LEH P#o4o6 GOTO 6h29n 
60210 FOR I=1 TO e:1F NIDS<PS. 1.1 22""" THEM IF Midst Ps, Tei >< 
HEN NEAT I 


65220 IF I=? THEN IF LEFT#¢P#.12<"4" THEN IF MIDE(P$.4,19¢"4" 


0 652388 

65298 P=""IRETURH 

65299 REM 

BUS6G PHVALSLEPTS CPS. ae Sigh cian le teed PtCUALCMIDS (PS. 2. 12 #20462 
BS31G P=P+ OVAL OM IDS OPS. 3, sL29#2560 0P=P+ CURL OMNI DES PS. 4. 13 2% 
B5S26 PHP+ OVAL CMI DSe Pe, B12 Dest ee =P+UAL RIGHTS (PS. 129° RET 
65293 FEM 

GIo99 REM | SYMBOLIC 


65486 IF Fe="2" THEM I=VAL CSE Bs oti i [ge Fee's AES EE RE TUR 


Bod@2 IF Feiee" THEM RETURH 
65464 PRINT tFRIHT "SVNBOL TABLE REMWTEWS " 
60466 Fe="2"SAS=F Ss 


6541 FOR I=1 TO WALSS${G9911S=MIDEC SECT IZ. B34". "HM IDSCSHC19. 5, 
24" x "AMIDE CS$619, 89 1 P RTT I$:tHEXT I 


65498 PRIHT 8 F="h" RETURM 
65499 REM 


650GG PRINT "“COHFIGURE TERMINAL. "SSLIWE INPUT “TYPE CRE“ Sat: 


$¢3"" GOTG 8525868 


6a 26 FRIHT © FPRIHT :<RETURH 
B5534 EHD 


HT CAs 2569025 


ot 


oT 


i-F 


THE ‘INTELLIGENT’ DISASSEMBLER 


By: Jim Warner 
10121 Hyway 55 
Plymouth MA 55441 


OK, so maybe we don't need another 8080 disassembler. It’s true 
that the second issue of REMark contained a disassembler pro- 
gram which could serve us very well. But frankly, I’ve been 
intrigued with the concept of a disassembler almost since the 
day I first keyed in and successfully ran the Heath initial test 
routine. 


Iremember that event very clearly. It took place at 4:00 a.m. after 
working ‘round the clock’ completing the front panel board. 
What a thrill to realize for the first time that here was my very 
own computer — and it was actually doing something! My 
excitement increased as each new Heath distribution tape was 
loaded and run. Now my computer was not only doing some- 
thing, but it was doing something useful. Of course, that realiza- 
tion brought a flood of questions, mostly of the ‘‘wow, how does 
it do that?” variety. 


' Not being one to leave such questions unanswered, I set about to 
create a disassembler, in assembly language no less. Believe me, 
there’s no better way to learn a new computer language than to 
tackle such a project. After several weeks, I had my first version 
up and ‘“‘sometimes” running. It was a modest beginning. This 
disassembler was only capable of absolute disassembly. There 
were no provisions for symbolic labels and I frequently encoun- 
tered the situation where data was being misinterpreted as in- 
structions. Wouldn’t it be nice, I thought, if the disassembler 
could make that distinction. I mean if I was able to apply stan- 
dards of reasonableness to what I watched being disassembled, 
why couldn’t he? That way he'd know that at a particular mem- 
ory location was an ASCII ‘1"’, not a load stack pointer im- 
mediate instruction. 


The 8080 instruction set contains a mere 245 separate instruc- 
tions. Thus, of the 256 different bit configurations possible in an 
8-bit byte, only 11 combinations constitute a non-instruction. 
And even those non-instructions could be valid as the second or 
third byte of a multi-byte instruction. So, we have a situation 
where virtually any random memory location would generate 
what looked like a valid 8080 instruction. Yet we know that a 
good portion of a computer program is really data — tables and 
literals. 


At last, here was a project worthy of my attention — a clearly 
impossible task! I would create an ‘‘intelligent’’ disassembler, 

aon which was capable of distinguishing between object pro- 
gram logic (instructions) and object program data. It would 
assign default labels to program and data segments plus provide 
for user designated labels as well. It’s output would be accepta- 
ble input to the text editor (TED-8) for potential modification as 
well as the assembler (HASL-8) for re-assembly. 
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After investing many weeks in pursuit of this glorious hunk of 
software, it began to appear as though the task was indeed 
impossible. Version after longer, more patched version crashed 
and proved very difficult to debug. The need for frequent revi- 
sions along with the subsequent lengthly assemblies clearly 
suggested flaws in my original design. And these flaws pre- 
vented me from ever actually testing my key algorithms — those 
dealing with symbol table manipulation and access. My dream 
was slipping away! What I desperately needed was a means to 
make program modifications quickly and painlessly. I also 
needed a powerful run-time package which could monitor or 
alter program activity on the fly. Hey, wait a minute. What I 
needed was the Extended Benton Harbor BASIC interpreter! 


Though I remain the type of person who likes the informal title 
of ‘‘assembly language programmer’, my BASIC interpreter will 
never again be thought of in terms of last resort. Rather, it will be 
thought of as perhaps the best means of prototyping any com- 
plex task. I, therefore, offer this BASIC program as a permanent 
reminder to me, and a suggestion to other readers, of the power 
and flexibility of this sometimes snubbed high level language. 
And, I might add as an example of the latest Extended BASIC 
with data base capabilities. 


So, before I get back to HASL-8 with this BASIC prototype to use 
as a model in developing my faster, more efficient assembly 
language version, let me share with you its inner workings. I 
think you'll find that this is not just another disassembler. 


GENERAL BACKGROUND 


The ‘intelligent’? disassembler is designed to run under Ex- 
tended Benton Harbor BASIC version 10.02.01. It consists of 
program text and a data base. The program text occupies approx- 
imately 6500 bytes of memory, but can be reduced to less than 
5000 by deleting the REMark statements, all of which are dis- 
pensible without additional modification. The data base will 
occupy additional memory, but its size is variable — more on 
that later. 


After an FLOAD, the CONTINUE command will result in an 
identification heading followed by a “START?” prompt. This 
invites the disassembly start address. All disassembler addres- 
ses are in offset octal format and require a full 6 digits, including 
leading zeros. The same is true of the “END?” prompt which 
follows a valid start designation. 


After the disassembly range has been established, the “MODE?” 
prompt is printed. There are two distinct modes of operation 
under this disassembler (““SYMBOLIC” and ‘‘ABSOLUTE”’) and 
these are the only valid responses. 


ABSOLUTE MODE 


When this mode is specified, the next prompt is ‘‘FLAG?”. Any 
single character input at this point will be used to alert you 
when disassembly has or might become suspect — when in- 
structions are encountered which may signal a data area instead. 
For a description of such instruction types (in this case types 
#3-6), see Table 1. 


The final prompt will bean invitation to configure your terminal 
and type Return. In the absolute mode the disassembler formats 
the print line so as to take advantage of Heath's H9 Short Form 
provision. In this way a larger area of memory can be displayed 
at any given time. 


Each disassembled line is preceeded by the octal representation 
of the low order byte of the current memory location. In some 
cases this prefix will also display your designated ‘‘flag.’’ When 
page boundries change (the high order byte of the current mem- 
ory location)an additional line will be generated to so indicate. 


At any point during the disassembly range, a CTL-B will result 
ina termination of the current process and the ‘“‘P=”’ prompt will 
be printed. This is an invitation to alter the disassembler’s cur- 
rent memory pointer (again in offset octal format) so as to ad- 
vance or back up the disassembly process. This can be a conve- 
nient way to investigage a subroutine following a ‘“‘CALL”’ in- 
struction. When you wish to resume the abandoned memory 
location, another CTL-B followed by the new address will ac- 
complish it. 


SYMBOLIC MODE 


When this mode is specified, the next prompt following the 
mode designation is “VALID LO ‘/’ HI?”. We'll discuss the 
reason for this later. For now suffice it to say that this requires 
two offset octal addresses separated by a slash (/). Depending on 
the length of your disassembly, the next prompt could be some 
time is arriving. However, here’s what you will see at the termi- 
nal, at varying times of course. 


PASS ONE IN PROGRESS... 
SYMBOL TABLE EVALUATION IN PROGRESS... 


SYMBOL TABLE LABEL ASSIGNMENT IN PRO- 
GRESS... 


FINAL PASS BEGINNING. CONFIGURE TERMINAL. 
TYPE CR:” 


Since we will talk about each phase in detail, at this point let me 
just briefly cover the symbolic CTL-B options. 


By typing CTL-B just prior to the final pass, the disassembler 
will print the symbol table, including addresses and labels, for 
you to review. A second CTL-B while such a review is in prog- 
ress wil] terminate the printout and return you to the configure 
terminal prompt. This process can be repeated unendingly if 
you desire. 


DATA BASE (DRIVING TABLES) 


The intelligent disassembler data base consists of several items 
— minus the symbol table. It is up to each user to dimension the 
symbol table to whatever size memory will support. This is . 
accomplished by using the ‘“‘DIM S$(xxx)” in the command 
mode. Care must be taken to leave room for the growth of the 
symbol table entries also. Thereafter, assuming the program is 
saved at this point (FDUMP), the data base would consist of 
T$(255), T(4), NS, SS(xxx). 


The string variable N$ is simply an error note. Its value can 
easily be changed in the command mode. To find out how it’s 
used, you might try a “SYMBOLIC” disassembly with a start of 
000256 and an end of 000264. For this experiment you may 
specify any ““VALID LO ‘/’ HI’ addresses. 


The small numeric array T is used only during symbol table 
evaluation. Its elements are zero at this point. 


The large string array T$ represents the primary disassembler 
table. Unlike the other members of the data base, it is crucial to 
both disassembly modes. 


This table enables the disassembler to produce octal values, 
determine instruction lengths and types and print the 
mnemonic operation codes. It consists of variable length entries 
which contain the following information: 


LEFT$(T$(x),3) = Octal equivalent of x 
MID$(TS$(x),4,1) = 8080 instruction length 
MID$(T$(x),5,1) = Disassembler instruction type 


MID$(T$(x),6) = 8080 operation code 


Thus the entry for T$(205) would appear literally as 
*31531CALL” while the entry for T$(1) would look like 
“00132LXI B.” 


This should be fairly self-explanatory and its need vary appa- 
rent. For a more thorough review of the primary table, you might 
wish to issue the following immediate command after you 
FLOAD: 


FOR I=0 TO 255: PRINT LEFTS$(T$(I),3) ‘“ ‘ 
MID$(TS$(1),4,1) 


““ MID$(T$(I),5,1) “ ‘“* MID$(T$(I,6): NEXT I 
Hit the Short Form buttom then Erase before you key Return, use 


CTL-S & Q to govern scrolling and review the primary table ‘til 
your hearts content. 
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THEORY OF SYMBOLIC OPERATION 


We know that the CPU will execute instructions sequentially 
within a given block of memory until told to do otherwise. One 
“way to accomplish that “‘otherwise”’ is through the use of a 
branch type instruction. Examples of assembly language 
branches would be ‘‘CALL (address)” and ‘JZ (address)"’. The 
equivalent BASIC statements would read ‘‘GOSUB (line #)”’ and 
“IF Z=0 GOTO (line #)”. 


There is one other type of instruction which affects the sequen- 
tial nature of program execution. This is the instruction through 
which processing cannot pass. JMP, RET and PCHL fall into this 
category and constitute the only such instructions in the 8080 
instruction set. As far as the CPU is concerned, the only way 
processing could proceed beyond these points is if the address 
was reached through a branch instruction found elsewhere in 
the object program. 


A disassembler which could assign symbolic labels to the ad- 
dresses generated by these two types of instructions would have 
taken a big step toward ‘‘intelligent’’ disassembly. 


PASS ONE (SYMBOL TABLE CREATION) 


As we sequentially disassemble an area of memory, let’s ask our 
disassembler to construct a table. In its inception it will be 
primarily an address table, one whose entries consist of addres- 
ses. However, it will eventually become our symbol table and, 
since that name sounds so much more impressive (and will later 
e more accurate), you'll hear me refer to it more often as such. 


This table will contain variable length entries of the format: 
LEFT$(S$(x),1) = Evaluation flag 
MID$(S$(x),2,6) = Address 
MID$(S$(x),8) = Type references/Lable 


We'll insert the address of all branch objects (instruction type 
#1) into this table. While we’re at it, let’s also insert the address 
of all load objects (instruction type #2) into our table. Although 
such instructions do not affect the sequential nature of program 
execution, they may give a hint of a potential data pocket. 
Finally, we will take the address following those instructions 
through which processing cannot pass (current location + in- 
struction length), these are instruction type #4, and place it in 
our table as well. These deferred impact instructions provide an 


even stronger hint of potential data pockets within the disas- 
sembled program. 


Incidentally, the job of building this symbol table will be made 
easier if the entries are always kept in ascending order with no 
duplication. Such is the case with my BASIC disassembler. For 
the technique used, I direct your attention to lines 55000-55900 
of the BASIC listing. You'll notice that element zero, S$(0), is 
used to hold the total number of entries currently in the table. It 

ill be incremented whenever a new address is added, whether 


~ that address is inserted within the table or appended to the end 


of the table (depending on its value). Existing entries are simply 
updated with the new reference type. In this way we can main- 
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tain a history of how many references were made to a particular 
entry and, more importantly, in what ways that address was 
used in the disassembled program. 


Allright, we’ve completed the first pass. A block of memory has 
been sequentially disassembled and assumed to have consisted 
entirely of instructions — no data. In the process we created a 
table of addresses. Have we done enough? Well, we’ve done 
enough if all we want is the ability to assign symbolic labels to 
the disassembled listing. Unfortunately, our disassembler is 
still “dumb” and would merrily treat data as instructions. We 
must now ask him to analyze those table entries and, where 
appropriate, re-disassemble certain object program segments. In 
fact, we’ll find that some areas of a program must be re- 
disassembled (disassembled for a third time) if this guy is to 
acquire real intelligence. 


SYMBOL TABLE EVALUATION 


In the evaluation phase, we can ignore all addresses in our 
symbol table which are less than the disassembly start address 
or greater than the disassembly end address. Such entries will be 
considered ‘‘external’’ and we won't try to classify them as 
pointing to data or instructions. Next, we can ignore all branch 
object addresses. We'll assume that the author of whatever it is 
we are disassembling wouldn't have directed the CPU to exe- 
cute a table or literal pool (in other words data). Now you can see 
why it’s important that each entry in the symbol table also 
provide an indication of how that address was used in the 
disassembled program. 


Having ignored what is probably the majority of entries in our 
symbol table, what do we have left? We are left to consider only 
those addresses which were used ina load instruction (type #2) 
and those addresses generated by the disassembler because pro- 
cessing could not pass through the previous instruction (types 
#4& #5). Remember also that these remaini entries will fall 
within the range of our disassembly, having ignored external 
references. 


At this point, any further disassembly will be controlled by the 
addresses contained in the symbol table entries we have just 
identified. For the purpose of re-disassembly we will develop a 
sub-range which begins at the address contained in one symbol 
table entry and extends to the address contained in the next 
symbol table entry. We have already disassembled such a “‘sus- 
pect” program segment once. What we need now is a means to 
weigh what we'll ask our disassembler to take a second look at — 
re-disassemble. This is where the full compliment of instruction 
“‘types’’ become important. We will also provide two additional 
tools to use during this phase. 


Our disassembler knows the start and end points of the re- 
quested disassembly. But what if that range represented only a 
portion of the complete program? A branch instruction with an 
object address outside this range would appear less valid than 
one whose object fell within this range. In the later, we would be 
inclined to consider that an instruction whereas in the former, 
we might see it as data. In an effort to enhance the accuracy of 
such evaluations, we will give the disassembler a “valid” range, 
which may or may not correspond to the disassembly range (the 
“VALID LO ‘/’ HI?” prompt). Now the disassembler can apply 
this “valid” range to his evaluation of three-byte instructions 
(types #1, 2 = 5). 


The final tool we will provide is the means to consider any 
suspect program segment in its entirety. We want to avoid 
classifying any program area as data or instructions on the basis 
of a single instruction. Any such decision should be cumulative. 
However, since each instruction must be considered individu- 
ally we will offer an evaluation variable which can be dynami- 
cally altered depending upon the instruction type and the in- 
struction’s content. This evaluation variable will be subjected to 
factors which combine the effect of instruction type and content. 


The factors, or weights, I've chosen can be found on line 30100 
of the BASIC listing. They are actually applied at lines 5700-57 
900. These factors are somewhat arbitrary and you readers cer- 
tainly have my permission to alter them as you see fit — we call 
that ‘tuning’. However, they seem to do the job for me. Here’s 
how they work. 


If a branch instruction (type #1) is encountered in this re- 
disassembly and, if the object address falls within the ‘‘valid” 
range, the disassembler will add a positive bias to the evaluation 
variable. If the object address is outside the ‘‘valid” range, a 
somewhat weaker negative bias is applied to the evaluation 
variable. The same approach is used with load instructions (type 
# 2) but the effect on the evaluation variable is not as great. If a 
suspect instruction (type #6) is found, a strong negative bias is 
applied to the evaluation variable. Finally, if a non-instruction 
(remember, we're still disassembling sequentially at a location 
dependent upon the previous instruction’s length) is encoun- 
tered, type #3, the strongest negative bias is applied to the 
evaluation variable. 


Once we complete this re-disassembly, if we find that the evalu- 
ation variable yields a positive result we can flag that symbol 
table entry as pointing to program logic. In reality, all symbol 
table entries are so flagged upon entry — innocent until proven 
guilty, as it were. If our evaluation variable remained zero, it 
means we don’t have enough information to make a definite 
determination. We’ll flag that entry as “unknown” and later, 
through convention, treat the program segment as instructions. 
However, if the evaluation variable is negative (a likely result ifa 
non-instruction was encountered, a probable result if any ‘‘bad”’ 
branch or load instructions were found), we'll flag that symbol 
table entry as data. We should also ask our disassembler to find 
his second wind because there’s more work to do with any such 
program segment (remember re-re-disassembly’*). 


There are a couple of reasons for taking what amounts toa third 
look at any ‘‘confirmed” data area. First, a single byte of data 
may have been interpreted as a multi-byte instruction during 
pass one. In such a case, we may run the risk of losing the 
beginning of an otherwise valid instruction through the in- 
terpretation of data bytes 2-3 as an address or value. This very 
situation was clearly illustrated in the earlier REMark disassem- 
bler at address 000033. 


The second reason for re-examining this data area lies in the way 
our symbol table was constructed. The next entry in the table 
(the entry containing the ending address of this sub-range) got 
there for a reason. If that reason was because of JMP instruction 
(type #5) and, if that instruction now generates a ‘‘valid”’ object 
address, then we owe our symbol table one more entry — one 
corresponding to the beginning of that instruction. Such an 
approach allows us to properly evaluate and label the JMP 
instruction we find at address 000050 following the data at 


address 000043. Our only risk in ‘‘forcing” entries in this way is 
a few extraneous labels during the final pass, with no harm 
done. I prefer that to too few labels. 


With the evaluation phase we find the last maintainence bein 
applied to our symbol table. We won't be adding any more 
entries. However, this entire process will be repeated with each 
non-branch table entry throughout the range of disassembly. 


SYMBOL TABLE LABEL ASSIGNMENT 


The time has come (finally?) to transform our lowly address 
table into a true symbol table. The entries are now flagged as 
program logic, unknown and data. These flags will control the 
disassembly process (how memory is looked at) during the final 
pass. But what about us, the user, and the effect symbolic label 
content has on readability? Wouldn't it be nice if the labels we 
develop also reflected the distinction of program logic, etc.? 
Well, why not? 


Let’s call program logic entries ‘‘RTN”’ (for routine), un known 
segments ‘‘UNK” and data areas ““DAT’’. We'll call all external 
labels “EXT” and we will append to each label an in dication of 
where it resides within the table. Thus, our first few entries 
might appear as ‘‘EXT.1”, “RTN.2”, “UNK.3” and “DAT.4”. In 
this way, using the CTL-B and CTL-C provisions, we could 
return to command mode during symbol table review and issue 
the following immediate command: 


$$(2)=LEFT$(S$(2),7)+” ANY VAL” 


Now we have replaced “RTN.2” with ‘ANY VAL” while retain 
ing the evaluation flag and address. Thereafter, the dis assem 
bler would associate ‘ANY VAL” with value in the symbol table 
whenever it was used during the final pass. Thus we have a 
simple, effective means for user designated labels. 


This technique can be used over a period of time, as program 
segment functions are identified by you, to make an extremely 
readable disassembly listing. If at any time you wished to termi- 
nate a final pass listing, and resume at the start of the final pass 
later, the following immediate mode commands would ac- 
complish it: — 


UNLOCK 
1 CNTRL 0,65000: GOTO 34000 


FDUMP “any name”’ 


THE FINAL PASS 


With labels assigned we can now begin our final pass, produc- 
ing a symbolic assembly listing for our disassembly. Actually, 
this pass is not unlike the very first pass except we will be 
printing what we find as we PEEK(__) at various memory loca- 
tions. Additionally, we'll use labels instead of octal values for 
three- byte instruction operands and we'll sometimes preface a 
line with a label — when that label’s address matches our cur- 
rent memory location. Of course, if at that point the symbol tabl 
indicates we’ve reached a data area. We will force the ‘DB 
(define byte) interpretation on what we find. 


There you have it, symbolic (intelligent) disassembly. Simple, 
wasn't it? 
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PROGRAM VARIABLES 


utility address, generally — v 

utility address in offset octal, generally — ~ 
mode identifier control byte/CTL-B enable 
disassembly end 

disassembly end, ollset octal 

absolute flag/CTL-B enable 

utility array reference indicies 


symbolic re-disassembly symbol table reler- 
ence indicies 


utility string 

instruction length, from T$(I) 

symbolic line prefix label 

symbolic instruction operand label 
symbolic end statement start label 
symbolic intregrity violation message 
instruction mnemonic op code, from T$(I) 


current memory pointer 


P$ 


T(I) 


TS(1) 
WO-W2 


$1,$1$ E1,E1$ 


utility offset octal address, generally user 
input 


utility octal value, irom T$/I) 
symbolic two-byte instruction operand 
multi-byte instr’s byte 2 octal value, irom T$(I) 


multi- Q3$ multi-byte instr’s byte 3 octal 
value, from T$(I) 


disassembly start 
disassembly start, offset octal 
symbol table 

instruction type, from T$(I) 
symbolic evaluation variable 


symbolic symbol table type?relerences de- 
code array 


primary disassembler driving table 
symbolic evaluation weiglits 


symbolic sub-range re-disassembly start/end 
addresses 


2G>  <SMOMMFRM TOU ADRS 


rm 
m 
7 
Berg 
beat 


PROGRAM HAME: UTILITY GRAPH -— FULLER 


BGG16 
Bo 
SG826 
oe 
GG6825 
Eo 
SGG4a 
* 

SS Sa 
* 
GGG68 
sd 
BEGeE5 
BGG78 
GGG75 
GGGse 
G18 
B11 
8G126 
@6138 
Be14a 
Re 3 


86198 
Be268 
T1¢ 

BG216 
BAZ2E 
BG236 
B24 
BE256 
BE>88 
G@316 
GAS26 
BAS48 


REM sessed saab soak assis ok ap fe sie eco ae co ae eo 
REM UTILITY GRAFH 

REM + PROGRAMMER: WILLIAM E. FULLER 

REM + WRITTEM IH BH. BASIC WERSION @1.82.61 

REM + DATE: 28°00 T.7s 

POEM steaestitestesicaesteoesteseeope ofeach  e e e 


PRIWT =FPRINT 

LIHE INPUT "DO YOU WISH THSTRUCTIONS (Year "als 

FPRIHT = FRINT 

IF I#=""'" THEM GOSUB 48886 

LINE INPUT "HEADTIHG FOR COLUMNH OWE “LIMIT & LETTERS) Y"sEi#¢ 
PRINT = PRIHT 

LINE INPUT "HEADING FOR COLUMH TWO CLIMIT * LETTERS) ¥"sE2¢ 
PRINT = PRIHT 

LIWE INPUT "HEADING FOR COLUMN THREE “LIMIT & LETTERS? Y°sE 


PRIWT *FRINT 
IHFUT "BEGIHHIHG DATE <IHDUSTRIAL TYRE SUCH AS Sere ECT.o 


PRIHT < PRINT 


2 INPUT "INCRENENT DATE UNITS BY ?°sJ 
o PRIWT i PRINT 


LIKE IHPUT “SCALE FRHCTOR 7" as1> 
PRIHT = FPRIWT ; 
LINE INPUT "TIME UNITS IDENTIFICATION (DAYS WEEKS ECT.2 75 


PRIWT = FRIHT 

LIHE IHMPUT "TITLE FOR GRAPH CLINI? To 23 CHARACTERS? F's TaF 
FRIHT =PREIHT 

LIHE IMFUT "SFECIAL HOTE "STS 

FRIWHT :FRIHT 

FEI HT THE CEE 3 Usbseobok ok: 
PRINT TRESS)" "ET 
PRIWT TRE CT steestcbsbsechsh bbc Bb Oe Sa oes OY Os cs oy ae eae ci be ee es Oo 
PRIHT "“HOTE! "sTat 


HMoniok ch okobob eb secs eck eekckce 2 


Eber eae 
tutti 


mn 


PROGRAM HAMES UTILITY GRAPH ~ FULLER « COMT“D 


GBGSSG FRIWT “UNITS FER LINE: "ST 
BES6H PRINT "SCALE FACTOR: "Sal 

GG@STQ@ FRIHT "“BEGIHHING DATESUNIT OF TIME: "std 
G@SSG FRIHT "PROGRAM BY tl. &, FULLER” 
GG398 PRINT PRINT 
GBES08 GOSUB Shee 

BG6é88 GOSUB Tee 

BESESE READ A.B 

SAE SS ) 
Ae SS ! 
BES PE SUGGES 
BeESe TF Bago fora pa Se a 

Ga7GG IF ASB THEM CHAP DBs ASDpi bets GOTO Loe 

BHEF2E IF Ae GOTO See 

MESGE REP shskskse ssh see Ee Me oR ME ESE EE A 

BAS1G FEM THE FRIHT ROQUTIHE FOR THE GRAFH 

@GESE REPL chasis sesso ESE ERE EEE ESE EE 

1 S86 Pees “+ "DETABO POU AS TAB LS OURS TAB Ceo" OO TAB AFTS249 "CO" STA 
Beb+soo' eS TABY bea ae! 

Bi 328 GCVSLIE SE 

@i325 GOTO 626 

BlS50 PRINT "#"DITABO Po URS TAB Cibo YOURS THE S40" VRB Ato UR STA 
Be bet4o "0 s THEY basa ta! 

B@il368 GOSUB Bee 

Bl365 GOTO 63a 

G@2G60 PRINT "#" DITA OP oY URS TARR LBS Maa TAB S409 TRB ted U2" TA 
Be de ae 
BSELG GOSUE BE 
@2615 GOTO 6&3 
G4GGG PRINT "!"GELSTABC TD "9" SEZETAE: 

14@ FRINT TAB S4o "8 ik 

= OB eg fi" S 
A411 FRIHT " y & i 7 8 Lee" 
A4208 RETURM 
8 Bee PRIWT 


@si0@ PRINT 

Bi26e RETURM 

B@eGGG PRINT “cesses |) ecperersnse cece) semen boo 
i 


ete 


a 


BE 


G61a0 PRINT Se Ol SN eee, Seer nee 


CHMUDG> <SPCORSP MM TOANSADSROC ED CUOKGP<LS OTT 


PROGRAM HAME: UTILITY GRAFH - FULLER < COHT*D 


@6156 Di=pit+] 

B6266 RETURN 

BSG@GQG FEM shvesestsheishsksk st chsh ob oboe oe oe oi ob oe oe of of ae oe eo os oo eo oe oe oto esd oe of ec 

O@S1GG REM THE DATA FOR THE GRAPH 15 PLACED INTO DATR STATEMENTS 

e926@ REM IN LINES 16686 THROUGH 29999 

@93G0 REM A VALUE OF 9999 FOR A DATA WALUE WILL CAUSE FROGRAM 

a940@ REM TO EMD. 

@S5GG@ REP sesebsisiseseshekssese oh ese Se EE ED oe ob oe oe ok he ote ode i oe ote ie ie te fe fe ob ee fe oe oe oe 
1G@aee DATA 14. 20.28. 16, 28. 28 

16G1G@ DATA 16.19.23.29, 
1G@626 DATA 85.16.65. 38.52, 
1G8S@ DATA 66.65. 72,588.58 
1@@4@ DATA 65.91.3.15.15 
1G@G@56 DATA 39.35.12. 5,.43.8 

1@G6@ DATA 24.26, 57.55.89. 28, e 

46600 PRINT "THIS IS A GENERAL FURPOSE GRAPHIHG FROGRAM. THIS FR 
OGRAN" 

4@G16 PRINT "REQUIRES A FRIHTER WITH A COHSOLE LENGTH OF i32 BUT 
MAY 

4662@ PRINT "EASILY BE MODIFIED FOR OTHER COMSOLE WIDTHS. THE GE 

APH WILL” 

44636 PRIHT "PLOT Ta QUANTITIES AGAINST ERCH OTHER. THE FIRST © 
OLUAH” 

4864@ PRINT "IS THE DATE OR OTHER UIT OF TIME WHICH WILL THCREMNE 
NT BY" 

$6850 PRIMT "AM ANMCUHT WHICH ‘OU SPECIFY IN AW OTHPUT STATERENWT. 
THE 2HD COLUMH" 

4@@6@ PRINT "IS THE “G° WALUE WHICH IS PLOTTED OM THAT LINE. THE 
THIRD" 

4676 PRINT "COLUMH REFRESEMTS THE “s° WALUE WHICH IS FLOTTED oh 

THE” 

46686 PRINT "SAME LINE. A SINGLE “2° IH A LINE INDICATES THRT TH 

—E THE” 

46@9G PRINT "“H° AND “O° WALUES ARE IDENTICAL.” 

46G95 PRINT "ENTER DATA VALUES TO BE PLOTTED IH LIHES 1l@amea TO 46 
BGG," 

40697 PRINT “HIT SPACE BAR WHEN VOU WISH TO CONTINUE. °' PAUSE 
4495 PRINT tPF RIHT 

46168 RETURN 

SEBEE REM aektckL TST OF WAR TABLES USE Dass: 

S@G1G REN IF=ANS. YeH FOR ITHSTRUCTIONS 


PROGRAM HANES UTILITY GRAPH - FULLER «< COHT<D 


SBG26 REM Eis=157 COLUMH EHEEL 


REM T2$=TITLE FOR GRAFH 
REM TS€=SPECIAL HOTE FOR HEADING 


ae REM 2E=2HD # 

sHG4e REM EAS=IRB ‘i ci 

SAE 2 REM ae BEGIHMIHG CATE-TIME 

S66606 FEN J=ANMNOUNT FOR THCRENENMT OF DATE-TINE 
SGGPS REM S1IF=SCALE FACTOR FOR HEADING IFO. 
SG@8S@ REM TIt=TINE UNITS IDEHT. FOR HEADING 

ba Lae 

s8 168 


Dobe GE te Co) ots at B = 


Se1l1ie8 FET A=DATA VALUE FOr PRINTING te 
SG@1i26 FEM E= se ease 


a8 1 36 REM C=THTERMEDIATE VARIABLE TO THSURE PROPER TABEING WHEM 


SQ14@ REM p= : ‘ : : : : 3 


EB i4e 


SH>CUSKG> <S>KOSC FOC TOCWEK ASK ROME? <US<Oe< Le II 


PROGRAM MAME: ELECTROWIC FORMULAS ~- CRABTREE 


@GG16 
6@G15 
Gaeis 
GE828 
GaaEee 
Gaasea 
66168 
Gai a2 
66105 
6116 
@@115 
G11 
66126 
8125 
@G135 
66408 
GS-41 
BG4a2 
E463 
G44 
G4 GE. 
BE=G5 
aera? 
GBESES 
86514 
21466 
@G515 
GGSse 
BAS35 
Ba Iee 
@G365 
Ba31e 
Gasis 
66926 
GasZ25 
BASSE 
BEI35 
G1 G66 
@1Gis 
Giagir 
@1615 


PRIHT "THIS PROGRAM WILL COMPUTE MISCELLAHEOUS "5 

PRINT "ELECTROWHIC FORMULAS": PRINT 

PRINT "IF NOT SPECIFIED. ALL EWTRIES ARE IN UNITS" PRINT 
REM PROGRAM BY’ PAUL CRABTREE 

PRINT TABS 21>"EWTER HUMBER OF ITEM"! PRIHT 

DIM Rit2@>.,Cit269.LIit 285 

FOR #=1TO 12:READ BE:IF BE="Frr"GOTO 165 

MEST 

FOR A=1TO 26: READ BF 

IF BS="999"G0TC ae 

ON A GOTO 126,125. 128.125.1268, » 126, 12a. eee 

OM A-1eGoTa 12.12 me 126. 125. 12, 24.12, 

PRINT TABCSOBS. ©GOTO 135 

PRINT TAB. 4G 9B 

HEXT A 

PRINT "IF VOU HAVE MORE VALUES FOR THIS FROGRAM" 

PRINT “TYPE “YES”. IF YOU WISH TO GO TO THE MAIN LIST THEN” 
LINE INPUT "TYPE “H@? 7 "SMe 

IF M$="VES"THEN RETURH 

IF M#="NO"GOTO Sah 

GOTO 4G 

PRINT © INPUT "WHAT ITEM NUMBER FROM MAIN LIST 7 "st 

IF @>138G0TO Ses 

IF @¢1GOTO Ses 

OW © GOTO 16G8. 1566. 1988. SSG. SAG. SAAC. 408. 4588, SHG, 1 See 


ON @-11G0TO 1456, 1475. 6608. 1766. 1S6e,. 1186. 1288 

DATA "BLACK. "BROW". "RED". "QRAMGE"’. "VELLOW". "GREEHM" 

DATA “BLUE”. “VIOLET” s "GRAV". "WHITE". "rr" 

DATA "1 PARALLEL RESISTORS"."2 RESONANT FREQUENCY” 

DATA "3S SERIES CAPACITORS". "4 REACTANCE”’,"S IMPEDAHCE™ 
DATA "6 AWNTEMWA LEWGTH"."? OHMS LAW". "S POWER FORMULA” 
DATA "9 RESISTOR COLOR CODE". "18 TRANSFORMER TURNS RATIO” 
DATA "11 DECIBELS”. °12 CONDUCTANCE”. "15 FREQUENCY TO TIME" 
DATA "14 TRAHSMISSION LIME". "15 AHT FIELD STRENGTH" 

DATA "16 PEAK RADAR PULSE FOWER". "17 PARALLEL INDUCTORS" 
DATA "18 PROGRAM COHMVERSION TABLE". "Son" 

PRINT "THIS PROGRAM WILL CALCULATE PARALLEL RESISTORS” 
INPUT "HOW MAY RESISTORS 7 "SR 

T=G°1F Re1scoTa 1615 

IF R<2GOTO 1615 


B 14d 


<H><U> 


n0" SSCS Pett e.wetmneteeee SASS OLE 


PROGRAM HAMES ELECTRONIC FORMULAS ~ CRAETREE < COMT“D > 


BLleZei 
B1la22 
G1G25 
G1G3e 
G@1@sz 
Biled4e 
G1 856 
41186 
G1i1isS 
Gilir 
@i1is 
Blize 
Glizz 
@1iz5 
@1i2e 
GLl1iSzZz 
1146 
@1156 
G1 268 
@12G2 
81264 
G1 266. 
12a 
41283 
G@1l218 
Giziz 
@1214 
Bi21é 
@izis 
G1 226i 
Ble22 
G1 238 
Bi 234 
@il236 
41246 
Giz44 
@ilede 
G1 256 
1254 
B1256 
G1268 


FOR #=17T0 RiPRIHT "RESISTOR WALUE "Ses" IM OHMS": 
IHMPUT " 7 "SRICHOS IF SR GOTO Leese 

HEST 3 

FOR BE1TO Ri T=Tt+tileRicsaaiiF w=R GOTO i84e 

HEMT & 

PRINT “TOTAL RESISTANCE is "21-Ts" OMS" 

GOSUB 468° PRINT =<GOTG 18125 

PRIHT "THIS PROGRAM WILL CALCULATE PARALLEL IMDUCTORS" 
IHPUT "HOW MAW’? THOUCTORS F "Sb 

T=G:21F Lois GOTa 1115 

IF U<2G0TO 1115 

FOR #=1T0 LEPRIHT "INDUCTOR WALUE "Gee" IM HEMRYS" > 
IMFUT " 7 "SLICHOtIF #=L GOTO 1126 

HEMT 

FOR 4=1TO LET=T+eieLiteootiF x=L GOTO 1146 

HEMT 

PRINT “TOTAL INDUCTANCE IS “si-Ts" HENRYS” 

GOSUB 466° PRINT -GOTO 111s 

PRIWT "THIS PROGRAM WILL COWMWVERT ENTRIES «To BE USED IN 
PERIHT "MAIN PROGRAMS TO UNITS” 

PRIHT "CONVERT ITEM" 

PRINT "“19GIGR. C25MNEGA. “S>3KILO, “4oMILLI. cSaMICkO, "3 
PRINT " C6ONAHO. OR CPaPICO" 

IHPUT "TO UNITS 7 “su 

IF U=1GOTO 1256 

IF Us2G0TO 1236 

IF U=SG0TO 1248 

TF U=460TO 1256 

IF USSG0TO 12686 

IF U=8G0TO 1298 

IF U=PGOTC 1276 

THPUT "MEGA WALUE PSL 

PRINT "MEGA WALUE "sls" IS "Slee se@egeeas" IM UNITS" 
GOSUB 468° PRIHT <GOTO lee 

INPUT “"KILG YALUE Y "SU 

PRINT "KILO WALUE "Sus" IS "SUeeieeeas" IN UNITS" 
GOSUE 48 PRINT © GOTO 1S 

IMPUT “MILLI VALUE 7 “su 

PRIWT "MILLI VALUE "slis" IS "sue. G@Gis" IN UNITS" 
GOSUE 4GG5FRIHT 2<GOTO 126} 

THPUT “MICRO VALUE 7 "su 


<HMMURKG> SMOKE TICUOSADK ROSES <UODSLD OTT 


PROGRAM MAME: ELECTROWIC FORMULAS -— CRABTREE < COHT“D > 


61264 PRIWT "MICRO WALLIE "sls" IS "Slee. GeGee Ls" IH UNITS” 

@1266 GOSUB 466: PRINT 2 GOTO Lee 

G@1l27@ INPUT "PICO VALUE 2 USL 

@i2zr4 PRINT "FICO VALUE "SUE" IS "Slee. GeGGG0GG000G15" Ih UNITS" 
@127é6 GOSUB 4G6° PRINT © GOTO ieee 

01286 INFUT "GIGA WALUE F "su 

@1284 PRINT "GIGA VALUE "SUS" IS “SL eeeeeeeaees" IM UNITS" 

G12S6 GOSUB 4GG:PRIHT <GOTC 1Leee 

@1296 INPUT "NAH VALUE 7? "su 

G1294 PRINT "“HAHC YALUE "sls" IS “Slee, SeGeeageeis" IM UNITS" 

41296 GOSUB 466° PRIHT : GOTO 12ee4 

@13G0 PRIHT "THIS PROGRAM WILL CALCULATE SECOHDARY WCLTAGE” 

GiSiG INPUT "PRIMARY UOLTAGE F "SF 

G13135 INPUT "SECOHDAR’Y’ TURHMS 7 "35 

@1326 INPUT "PRIMARY TURHS 2 "EF 

@1325 PRINT "THE SECONDARY WOLTAGE IS "sSRaecSeF i 

@13S3G GOSUB 4QG°FRIWNT «GOT 12ik 

@146G PRINT "THIS PROGRAM WILL CALCULATE DECIBEL FBATIO OF TWO Fo 
ERS" 

@14iS INPUT “EMTER POWER OWE F "SRLSIMPUT "EMTER FOWER TWO ? "SPS 
@1425 PRINT "THE DECIBEL VALUE IS "SIGeCLOGePle-P2beLOGi1Goo:" DE" 
@1436 GOSUE 4@G2PRINT <GcTo i4ik 

G1i4dS5 PRINT "THIS PROGRAM WILL CALCULATE COMDUCTAHCE IM MHC" 
Bl4dSS INPUT "WHAT IS THE RESISTAHCE ? "sr 

G@ildSe IF R<e=GGOTA 1455 

@1466 PRINT "THE COWDUCTANCE IS "“sieRs" MHoS" 

@1465 GOSUE 4@8: PRINT :GOTO 1455 

@1475 PRINT "THIS PROGRAM WILL CALCULATE FREQUENCY To TIME” 

14/76 INPUT "IS FREQUEHCY IN He «13> OF KHE “2s F "St 

Gilder IF M=1iGoTo i4ee 

Gi14r7a IF Me2ooTo 14e6 

Bi4g79 GoTa i4reé 

61490 INPUT "FREGQUEHC’Y IM HE F "EF 

@1491 PRINT "THE FREGUEHMHCY IS EQUAL TO "SsieFs" SECOHDS"sG0TO l4es 
614986 INFUT "FREGUEHCY IM KHE 7 "SF 

@1l4e? PRINT "THE FREQUENCY IS EQUAL TO "Si-ecF-18@Gos" MICKOSECOUHD 
Ss" 

G@14SS GOSUE 4@@:FRIHNT «GoTo i4 Fé 

@15660 PRINT "THIS FROGRAM WILL CALCULATE RESOMAWT FREGHENCY 
@1S516 INPUT "INDUCTAHCE IN HEHEYS F "SL 

@1S15 INPUT "CAPACITANCE THM FARADS PGC 


mm 


ids 


<H><KUStG> <SPCO> FCT CARRE? CUO L > LI 


PROGRAM HAME: ELECTROHIC FORMULAS — CRABTREE « COMT“D > 


Gi S28 
@1LS25 
@1S2e 
isle 
G@LAS= 
G1 7ee 
Bias 
@1irig 
115 
Gi Fr2e 
GLP 25 
41 PSe 
@1 "Sa 
Birde 
G1 She 
G1 ses 
G1lZ1G 
Misis 
meas 
Gis 

G1 S25 
G1Ls36 

1 S4e 
isd 
@isse 
1 S68 
MiDSis 
G@isiy 
@isis 
Gi S28 
Si s22 
Gi a idee 
4193 
1932 
Al S4e 
G1 358 
B2508 


bow 
+ 


A285 
@23518 


ae nook 


B25 15 ma 


PomereeATHe 1228 PsP SOR Lao oe Pe tee 

PRIWT "THE RESOHANMT FREGUEMHCOY IS "“sPse" He" 

ASP 1GGGs BAHT eGes CB Tame 

PRINT "IH EHS"3HS”" IM MHS" 2bs” IN GEGH H2"5C 

GOSUE 4QQ°8PRINT :<GoTO 15ie 

PRINT "THIS PROGRAM WILL CALCULATE FIELD STEEHMGTH" ' 
PRIHT “AT MODERATE DISTAHCES FROM THE TRAHSMNITTING AWTEWHA” 
THPLIT "WHAT IS THE EFFECTIVE AWNTEMHWA HEIGHT IW METERS 7 "seb 
INPUT “WHAT IS THE ANTENNA CURREMT IH AMPERES 7 "si 
IHFUT "WHAT IS THE OP ERATIHG WAWELENGTH IHW METERS ¥ "sl 
IHPUT "WHAT IS THE DISTAHCE FROM AWTEMHA IM METERS Y "sk 
E=" (Sa+6+T ot hbk 3 

PRIHT "THE FIELD STREHMGTH IS "ses" MILLIUVOLTS FER METER” 
GOSUE 46E°F RINT »GoTO 1Fie 

PRINT “THIS PROGRAM WILL CALEULATE THE PEAR” 

PRIWT "POWER CF A RADAR PULSE” 

IHMPUT “WHAT IS THE FULSE WIDTH IM MICRCSECOHDS F "ald 
THPUT “WHAT IS THE FULSE EEPETION RATE ? “3 

INPUT "WHAT IS THE AVERAGE FOWER IH WATTS $ "ar 
DI=1L-Rilli=W-loeeneea 

Gi=Wi-bl 

Fi=FeDISREM FEAE POWER 

PRINT “TRE PERK POWER £5 “sPis“ WAL IS” 

PEINT “THE DUTY CYCLE IS “sbi 

GOSUB 4G PRIHT © GOTO Lee 

PEIHT "THIS PROGRAM WILL CALCULATE SERIES CHPACITORS” 
THPUT “HOR! NAR CAPACITORS F st 

T=85 IF CrissgoTo isi 

IF GeSGoTo isis 

FOR H=17T0 CiPRIHT "CAPACITOR VALUE "ses" TH FARADS" = 
THPUT " F "SCiteos IF wet GOTO lisse 

HEMT 

FOR S=17TO CiT=T+cieCickoos IF wat GOTO 1346 

HEMT 

PRINT “TOTAL. CAPACITANCE IS “Fi-Ts"” FARADS” 

GOSUE 4hE°FRIHT <GOTO i3is 

PRIHT "THIS PROGRAM WILL CALCULATE IHDUCTIUE AHO CAPACITIVE 


PRINT "REACTAHCE" 
INPUT "SOLVE FOR INDUCTIVE £1) OR CAPACITIVE ¢25 REACTANCE 


IF Re2GOTO 2eee 


B id44 


HO<U 


PRG 4 <SSKOSKF OR TORWOKASC ROSE? «=64USKORKL> IT 


PROGRAM WAME: ELECTROWIC FORMULAS —- CRABTREE « COHT“D > 


@2528 
@23525 
2534 
2332 
B2535 
bet) 

62608 
62614 
62615 
@2625 
Ss" 

@2658 
GSGeae 
ANCE” 
G3614 
G2626 
G3GG8 
G3G65 
B63G7E 
esar? 
G3638 
@Seass 
63166 
@315e 
G3266 
G@3215 
@33a7 
BI3G2 
G3369 
G3315 
G3328 
B3325 
@3327 
3335 
3344 
S568 
G35G5 
@S518 
G@S51z2 
@33514 
6366E 


PRIHT "SOLVE FOR INDUCTIVE REACTAHCE” 

INPUT "FREQUENCY IN HERTS 7 "SF 

INFUT "INDUCTANCE IM HEMRYS 7 "GL 

PEZecd+ATNe 13> 

PRINT "THE INDUCTIVE REACTAHCE IS "SPecFtlos" OHMS"! GOTO 26 


PRINT "SOLVE FOR CAPACITIVE REACTANCE” 

INPUT "FREQUEHC'’ IM HERTS F "SF 

INPUT "“CAPACITAHCE IN FARADS ? "5C 

PRINT "THE CAPACITIVE REACTAHCE I5 "sits. 14i6ecF4to os" OHM 


GOSUB 4@@° PRINT <GOTO 2516 
PRINT "THIS PROGRAM WILL CALCULATE SERIES OR PARALLEL IMPED 


INPUT “SERTES <i> GR PARALLEL <2> CIRCUIT 7 “iQ 

IF @=2G0TC 33a7 

INPUT "RESISTANCE VALUE IN OHMS 7 "SR 

INPUT "CAPACITANCE WALUE IW FARADS 7 "st 

INPUT "INDUCTAHCE WALUE IH HEMRYS 9 "SL 

IF C=L. THEM 2=R: GOTO 328G 

IF L>C GOTO 3196 

iF UPL. bOTO S136 

2=L—-Ci 2=2428 SHS+ ORR S=SORC S98 GOTO S2ee 

2=C—-Li 232428 222+ 0 RR § 2=S0RC2> 

PRINT "THE IMPEDANCE IS "323" OHMS” 

GOTO 334 

INPUT "RESISTANCE WALUE IM OHMS 9 Usk 

INPUT "CAPACITANCE VALUE IM FARADS 7 "EC 

INPUT "INDUCTANMCE WALUE IN HEMRYS 7 "abl 
AR=12-RiB=12-CiC=12-L 

IF BoC THEM #=6-C 

IF COE THEM #=C-E 

T=FHt Alt Hee 

PRINT “THE IMPEDANCE IS “ii2z-cSGQkecT+4202" CANS” 
GOSUB 4@G°FRIMHT <GOTO Saia 

PRINT "THIS PROGRAM WILL CALCULATE ANTEMWA LENGTH" 
INPUT "FREQUENCY IM MH2 7 "SF 

AK466-F SPRINT "THE HALF WAVE ANTEHWA LEHMGTH IS "SAS" FEET"; 
PRINT " OF "SPRINT Atl2sSPRIHT " IMCHES" 

PRIHT "“GQPERATION WILL BE IHW THE "SSh@eFs" METER BAND" 
GOSUB 4G@°2FPRIHT <GOTO Soe 


B i145 


<HOCUSKG>S <SCOOC PRC TICWOSADS RED CUCL OTT 


PROG 


S400 
S4oes 
B4hHE, 
B4E8S 
S416 
S401 
S415 
4 ee, 
S4eiS 
4. 6Get 
S452 
Bosh 
G4o7= 
SB4qre, 
S403 
B41 G8 
44.506 
4505 
G4 516 
4515 
S4 528 
1 ar 
A4 55681 
a4 S55 
A457 5; 
BFS 
€4e6e8 
4505 
B4625 
GSGAG 
SSeS 

1s ar SS Hed 
@SG16 
@Seqic 
lad 
BSere 
anar2 
sey 

pitt 
Si far] Ser 
BS125 


RAM HAMES ELECTROMIC FORMULAS ~ CRABTREE «< COHT“D > 


PEIHT "THIS PROGRAM WILL CALCULATE GHEE LAW" 
LIME INPUT "SOLVE FOR WHAT UNIT ¢E>.tI>. GR CRs FY "SUE 
IF US="E"GOTC 4615 

IF Ut="F"GOTO 4ea5e 

IF U$="R"' GOTO 46rS 

GOTO 46a 

THPUT “CURRENT UALLIE Y "SI 

IHPUT "RESISTAHCE WALUE F "Gk 

AHl4+Rs PRINT “THE WOLTAGE IS "sAeGoTo 4186 

INPUT "“WOLTAGE WALUE "SE 

INPUT “RESISTAHCE WALUE 3 "sk 

ASE “RS PRIHT "THE CURREMT IS "SAEGOTO 41Ge 

INPUT "WOLTAGE WALUE F "SE 

IHPUT "CURRENT WALUE F "sl 

A=E-T'FPRIWT “THE RESISTAHCE IS "sa 

GOSUE 4GG°8PRINT = GOTO +ees 

PRIHT "THIS PROGRAM WILL CALCULATE FOR POWER" 
IHPUT “WHAT TWO UNITS fLlol&e. (25ERR. CBoERI FY "su 
IF U=iGcoTo 4550 

IF Us200TO 43°5 

IF USBoOTO 4661 

GOTO 45 

INPLIT "VALUE OF I.R 7 "sSA.& 

PRINT "POWER ECUtALS 0 seca CAEL 3" WATTS"sG0TO 4625 
TIHPUT “UALUE OF E.R 2 "SH.6 

PRIHMT “ROWER EQUALS “SBCA es" WATTS" :'GOTO 4625 
IHFUT “WALUE OF E.I * "A.B 

FRIWT "POWER EGUALS "SRetbs" WATTS" 

GOSUE 460° FRINT : GOTO 45a 


PRIHT "THIS PROGRAM WILL CALCULATE THE RESISTOR COLOR CODE" 


LINE THPUT “FIRST COLOR 2 "sCis 
RESTORE 'ASGeFOR w=iTa is 

READ G$° IF Q@$=CifTHEHN Aas GOTO Sere 
TF Gf] "PPP" GOTO Sees 

ARAt+IGi HEST a 

LIWE INPUT "SECOHD COLOR Y "sC2as 
RESTORE <B=G:FO0R s=1TO 12 

READ RE° IF R$=CSETHEM B=ES GOTO 3125 
IF RE="7 FP "GOTO Sere 

B=E+1°HEXNT & 

LIHE INPUT "THIRD COLOR ¥ "sCas 


<He<u> 


<G> <So<O><cF><To<UKASSKROCE> 6SUSKOSKL? UTI 


PROGRAM NAME: ELECTRONIC FORMULAS - CRABTREE « CONT“D > 


@5126 
@s127 
@212e 
@5134 
G3136 
65142 
1S ead SS 
@5285 
@5215 
@5225 
@3235 
BS368 
G5316 
@S315 
GAISigs 
G2326 


GI325 


IF C3$="GOLD"THEM C=.1:°G0TO S266 

IF C3#="SILVER"THEHM C=.81:G0TO S2ae 

RESTORE =C=1:FOR =1TO 12 

READ S#:1F S#=CBETHEN C=Ci GOTO S2ee 

IF S$="7 77 "GOTO Sizs 

C=C#1IGiWNENT & 

K=CHCAt+BoOSPRIHT "THE RESISTAHCE I5 "Fee" OHMS" 
S=k 

K=K-1GGG@°FRIHT "OR "ske" KILO OHMS" 
REK“IGGGIPRIHT "OR "sks" MEGA OHMS" 
K=K-16GGG2FRIHT "CR "sks" GIGA OHMS" 

PRINT "EWTRIES FOR HEXT QUESTION CHMOHE. SILVER. OR GOLD" 
LINE INPUT "FOURTH COLOR 7 "sCd$ 

IF C4$="NOHWE"GOTO S325 

IF C4#="SILUER"GOTO S35e 

IF C4$="GOLD"GOTO Sars 

M=. 2645: G0TO S4e2 


GISSGeM=.14eS:G0TO S4a2 


GI375 
62468 
B2482 
@l464 
S48 
46406 
66805. 
G6G1G 
66015 
S626 
6825 
GB682S 
G 
GSG36 


B6GS4 
G63. 
GEBSS 
66046 
cS aS 
G6Gr2 
46674 


M=.45¢5:G0TO S4a2 

GOSUB 468° PRINT :GOTO SG@s 

PRINT “THE RESISTOR TOLERANCE IS "EM 

PRINT "THE TOLERANCE RAHGE 15 "sS—-Ms" To "sS+hs" GHNS": GOTO 


PRINT "THIS PROGRAM WILL CALCULATE THE CHARACTERISTIC" 
PRINT "IMPEDANCE OF TRANSMISSION LINES" 

LINE INPUT 15 TRANSMISSION LIHE TWO WIKRE PARALLEL 7 "sKe 
IF 4$="VES"GOTO GaSe 

LIME INFUT "IS TRANSMISSION LIME A CORNIAL LIME 7 "EH 

IF XF="VES"GOTO 6are 

PRINT =PRINT “TYPE “YES” FOR OME OF THE QUESTIONS” 'G0TO sai 


PRIWT = PRINT "PARALLEL TRAMSMISS 00M LIKE" 
INPUT "WHAT IS THE SPACIMG BETWEEM COMDUCTORS IM INCHES + " 


INPUT "WHAT IS THE RADIUS OF ONE CONDUCTOR IW INCHES F "se 
Z2=276+ (LOG CABS 3 

PRINT ©PRINT “THE IMPEDANCE I5 "see" GHMS”" 

GOSUBE4EE: PRINT <GOUTO 681 

PRINT =PRINT "CORMIAL TRAMENISSIOM LIME” 

PRINT "WHAT IS THE IHHER DIAMETER OF THE CUTER CONDUCTOR" 
INPUT "IH INCHES 7 "3H 


B 147 
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PROGRAM MAME: ELECTROWIC FORMULAS ~- CRABTREE < COHT°D 2 


a 


G6e076& PRINT "WHAT IS THE OUTER DIAMETER OF THE INHER CONDUCTOR” 
G6Gr7S INPUT "IN INCHES Y "SB 

BE6GSHGS= 1 SSC LOGCABo at 2=S4. 675 

G6Ge2 PRINT :PRINT "THE IMPEDAHCE IS "ses" OHMS” 

66384 GOSUE 468° PRINT GOTO éeie 


CH>SUS<G> <SOKOPK FSC TOW AS ROCE> = UP OL > 


PROGRAM HAME: METRIC-US CONVERSION - STILLMAH 


GGG1G 
Gea2e 
GGG 
BGG46 
G6GG5e 
GAG68 
Beare 
GeaSE 
GGa3 
ele 
66116 
46126 
G13 
G@146 
G15 
46168 
ee 7G 
G@138 
4819 
Ga286 
GG216 
GG226 
BE23a 
GA246 
@6258 
8268 
GeG27a 
6236 
GE29 
GASGE 
G@31e 
GG326 
GGS3E 
BAS4e 
BASSE 
GGS6e 
GAS78 
GA32e 
GBGS3e 
BB4HE 
66416 


REM METRIC <> US CONVERSION PROGRAM 
REM RR. STILLMAH 

PRIWT ®PRINT :GOSUEB Sé6a 

PRINT =PRINT = PRINT 

CLEAR =B=1°LINE IHMPUT " EXPRESSION = "sEt 
IF ES="" THEM PRIWT :GoTo 5a@ 


ii 


W=1tFOR A=LENCES> TO 1 STEP —1: T=ASCCMIDS“ES.A. 199-48 


IF TS1G AND T2=G THEH M=x+cVaTo revel: NEXT A 


MS=CHRSCT+H4QO2IF M$="" GOTO SG 

IF X$="U" THEN GOSUB 13GG:PRINMT <GCTO Se 
IF ¥$="0" GOTO 47a 

IF M$="+" THEN B=iiS=éix=G!Y=1:GOTC 336 

IF X$="-" THEM B=2!S=Hi N=! Y=1:GOTC 336 

IF X$="*" THEN B=3:S=KiXeG@:v=a1:GOTO 336 

IF X$="-" THEM Be4:S=hikeGrY=i:GOTO 336 

IF X$="." THEN X=X“VEY=1INEXT A 


IF #$="M" AND M=S THEM M=1eUt="Mi" SF =1iGoToO See 


IF X$="C" THEN M=ZtUS="CM"!F=1:GOTO Sac 

IF X$="T" THEN M=S:US="MTR"IF=1:GOTC 3a 
IF ¥$="M" AND M=S THEN F=1:GOTO 3aq@ 

IF X$="K" THEN M=4tUS="KM"F=1:GOTO Jaa 

IF X$="1" THEN M=StUs="IH"IF=1:G0TC 3a 

IF X$="F" THEN MeGtUg="FT"IF=1:GOTO Sea 

IF X$="¥" THEN M=7tUS="VD"F=1:GOTO Sau 

IF X$="M" THEN MeStUs="MI"IF=1:GOTO Sac 


IF 4¢="=" THEM W=Millb=LIbi F=f M=@:IF BPG GOTO 446 


IF #$="L" GOTO 456i 

IF AeG GOTO Sée 

IF 4#>@ AWD F=1 GOTO 448 

IF #>6 AND F=1 GOTO 44& 

IF A>G THEM WEXT A 

GOTO 36a 

C=hMiF=G:IF Me4 AWD BS THEM Mes 
IF M=@ AWD WoS THEM M=3 


OH M GOSUB 626.638. 646.6568. 668.678. 608. 696 Mai neaT A 


IF MeG& GOTO 44a 


ON M GOSUE F@G. 71g. P28. PIE. F4G. PSG. PEG. PPE 


IF Be2 AND Coe GOTO 448 

ON B GOSUE 456. 498. SG. S66 
IF Bea? AWD Coe GOTO 44 

IF Wee GOTO 446 


<HOMUSKGS> <S><CO>K FSM TOCWOKAM REED SURKOSLS §6OLT 


PROGRAM MAME: METRICAUS COWMMERSION - STILLMAW < COHT“D > 


GG4260 CH Wl GOSUE Foe. PoG. SAG. SIS. SE. She. S41. oe 

44436 PRIHT TABCSSSsEsTABC4E 2 sblti PRINT <PRIWNT < GoTo Se 

Q@GG46@ PRINT " SORRY. EXPRESSION & "sE#s" IS HOT LEGAL”’:'PRIHT *FR 
INT <GOTO Se 

@6456@ PRINT " SORRY. PLEASE USE “MI° FOR MILE AWD “hide | 6FOR 
MILLIMETER” 

46456 PRINT :< PRINT <GOTO Be 

BG47G PRINT " SORRY. LETTER “O° CAMHOT BE USED": PRIHT =< PRIHT = GOT 
ao Se 

G64S@ E=S+hs RETURH 

66496 E=-—S: RETURH 

SG5GG E=S4H:s RETURM 

@GS1G@ IF Wes THEM E=(S+yo+1leae 

BG526 IF Wes THEM E=Seex 

G52 IF e+ THEM E=cSexoe lea 

Besa IF Woe THEM E=saS 

GG655e RETURN 

Geqea E=R-St RETURY 

G@GS5°G IF Wes THEM E=tx-S>-1ae 

Besse IF Wes THEM E=x-S 
@eS30 IF We4 THEM E="s- So +1068 
@66aqa IF Wo4 THEM E=H-S 

466160 RETURH 

B6626 5-5-1666: RETURH 

BG636 S=S-1G03 RETURH 


S646 S=S:° RETURM 

BG658 SH=S+1AGet RETURM 
G6668 Sie, Geb: RETURM 
S667 Sei, SA4S° RETURM 
G66E0 S=fee. 3144810 RE TURY 
6698 S=S+1leGo. B48 RETURN 
BE7°EO B=H-1 GGG: RETURM 
G@GF 10 HMA 1GG RETURH 
e726 ASE RETURM 

BGPIe KEeH Lees RETURY 


GOF4G Make, G254: RETURH 
@G7SG Mee. 3G: RETURH 
@a7EG MaKe, 914401! RETURM 
GOFFa MeMe1609. B42: RETURH 
Gere EXEe1aGe: RETURM 
GA798 E=Ee1 Ges RETURH 


SH><Ue<G> 


PROGRAM NAME: 


GGSE8 
GGS1& 
66326 
GES2E 
GGS4Ei 
BGS5e 
GGS6E 
BGS" 


E=-E-. 


<S>.024F > 


CTOKWOCASK ROSE? <USKO><L> II 


METRIC-US CONVERSION - STILLMAM < COHT“D > 


E=E: RETURH 
E=E-180G: RETURM 
E=E-. 8254: RETURH 
E=E-, 3643: RETURN 
91i44@1° 'RETURM 
E=E-1665, S47 
PRINT TABS 2G) "+ 
PRINT TABC2ZO> "METRIC <> U.S. 


?RETURM 
COMMERS TOM PROGRAM -&"s FRIMT 
- LENGTHS": PRIHT = PRINT 


G@3S3Se6 FOR A=1TO 666: HEXT A 

66396 PRIHT " PROGRAM WILL COWMWERT METRIC TO METRIC UNIT LEHGTHS 
» METRIC To " 

G6960 PRINT "U.S. EQUIVELENT. U.S. LEHGTH TCG U.S. LENGTHS, U.S. L 

ENGTHS Ta " 

@601@ PRINT "METRIC EQUIVELENHTS. " 

@G@92G@ PRINT " LENGTHS IH ONE UNIT. EITHER U.S. OR METRIC MAY’ BE 

ADDED OR " 

GQ@S36 PRINT "SUBTRACTED WITH THE RESULT BEIWG EXPRESSED IN EITHER 
u.S. OR ” 

GQ94G PRINT "METRIC EQUIVELENTS. "= PRINT 

G@95G PRINT TABCIG@> "EXAMPLE = "STAB leis "2F T+ 1 SCM=hTR” 

GOS6GEPRINT TABS 259"12. S2IH-1. 25CMN=MM" I PRIWT ¢ 

46276 PRINT "TO CONTINUE TYPE “CR"s: PAUSE 

G69380 PRINT =PRINT i PRINT = PRINT 

GES9GGPRINT " LEHGTHS IH ANY UNIT EITHER U.S. OF METEIC MAY’ ALSO 
BE DIVIDED" 

616G@ PRINT "OR MULTIPLIED WITH THE RESULTS BEING EXPRESSED IH AH 

Y¥Y U.S. GR ® 

G1@1G@ PRINT "METRIC UNIT. "ft PRINT 

61626 PRINT TAB IG>"EXAMPLE © "STAB eeso"le. SINTRe Sec" 

G@1G3G PRINT TABS 25S" 14F T#7=MNTR" PRIMT = PRINT 

G@1i64@ PRINT "TO CONTINUE TYPE “CR“"s: PAUSE 

G@1GSG PRINT © PRINT PRINT ¢ PRINT 

@166@ PRINT " DIRECT UNIT CONVERSION WITHIN METRIC.ULS.. OF BET 

WEEN SYSTEMS” 

GIG/7GEPRINT "MAY ALSO BE ACCOMPLISHED. "' PRIHMT 

G6108G PRINT TABS IG>"EXAMPLE = "STABCSho"19. ShiM=IH" 

G169G PRINT TAB. 259"1G6EM=MI" 

@11@@ PRINT © PRIWNT = PRINT 

@111G@ PRINT "TO CONTINUE TYPE “CR "StPAUSE 

@1126 PRINT < PRINT = PRINT 

@113G PRINT " THERE ARE EIGHT LEGAL TERMS USED TO DESCRIBE UNITS 
AMD FOUR" 


& sod 


SH>MUSKG> <SPCOSF RCT SSWPKASA ROCESS 6S 6D 


PROGRAM HWAMNE: METRICAUS COMERS ION -— STILLMAH 


@114@ PRINT "MNATEMATICAL FUHCTIONHS. ON REQUEST FOR AW EXPRESSIOW 
A NUMBER IS” 

G@11i5G@ PRINT "ENTERED. THEN ITS UNITS. A MATH FUNCTION IF REQUIRED 
» AW EQUAL” 

@116@ PRIHT "SIGH. AWD THE UNIT AWSWER DESIRED. U.S. UNITS LESS 

THAM WHOLE” 

@117G FRINT "HUMBERS ARE ENTERED IH TEWTHS. ‘i-4 WOULD BE ENTERE 

D @.25IN>" 

611388 PRINT 

@1l1i9GGPRINT " FOLLOWING ARE A LIST OF LEGAL UNITS USED IN THIS P 

FOGRAM. TO" 

812606 PRINT “REVIEW THEM AT ANY’ TIME ENTER “UMITS” OW PROMPT “ERP 

RESSION* ° 

@121G PRINT © PRINT "TO COHTIMUE TYPE “CR "SS PAUSE 

G@i226 PRINT ¢ PRINT = PRINT 

@123G PRINT ” U.S. FRACTIONS MAY BE CONVERTED TO THEIR DECMIAL E 

QUIVALEHTS BY" 

81248 PRINT "EMTERINHG OME *1> AWD THE UNIT “IN DIVIDED BY THE FR 

ACTICHWAL " 

G@1l258 PRINT "DEHOMIMATOR FOLLOWED BY EQUALS “=o IMCH. THE RESULT 

S May ACSe * 

1266 PRIHT "BE COHMVERTED DIFRECTL’’ TO AM’ OF THE OTHER LEGAL UNIT 

S ":PRINT 

Gl2zre PRINT TABS IGS "EXAMPLES © "STAB C239" 1IH-S=IH ~ DECMIAL i-s 


@izse PRINT TABS SS "1LIne-4d=Mh - MM EQUIVALENT i-4 IW” 
Giz2se PRINT © PRINT =<PRINT "TO COWMTINUE TYPE “CRO "s: PAUSE 
G@1366 PRINT <PRIHT = PRINT 

G@1316 PRINT TABSSo "LEGAL UNITS © "i PRINT 


1326 PRINT TABLIG2"IN = INCH "STABCSS> "MM = MILLIMETER" 
@iS36@ PRINT TABS IGo"FT = FOOT"S TABS S50"CM = CENTIMETER” 
G@1iS4@ PRIHT TABCIGS "YD = VARDY' STARS SS 9"MTR = METER" 

@135@ PRINT TABRC1IGO"MI = MILE"STABCSSo"KM = ETLOMETER” 


GIS6GGPRIHT 'PRIHT TABS 1Go"+ = PLUS" STABC SS = MULTIPLY” 
Gis7G PRINT TABS ITG@o"- = MINUS" STABC SS" = PIVIDE" 

41386 PRINT = PRINT "TO START TVFE “CR°"StPAUSE = PRINT 

@139@ GOSUB 141@:PRIHT tPRIHT " EXAMPLE —- EXPRESSION © 12. 3hhits 
rhM=cM" 

1466 GOSUE I4diGiPRIHT PRINT = RETURM 

G@idiG PRIHT = FOR A=1TO FSiPRINT "-"SthEST ASPRINT = RETURM 

61426 REM 


<H><U><G> 


PROGRAM NAME: 


41438 REM 
@i44a REM 
61458 REM 
6146G REM 


<S>K OSC FOX T PCWP AS RI<E> 


ROBERT F STILLMAH” 
3769 HILLSHIRE DR” 
RICHMOHD ILL. é6a@@ri" 


C815) 67e-4374" 


METRIC-US COMWERS ITOH 


SUP OS<L> 


~ STILiLMAn < 


- 


II 


COMTD > 


B i133 


1 Osby 


Volume II 


TED8 Source Code 885-1014 


Program Name Page Number 
Renumber-Ignatius 1 
Renumber/Merge-Moss 22 
Utility Routines-Price 43 
TAPE Management-Turner 70 
8080 Disassembler-Shiffrin 108 
CCS 'SUPPRESS-Morgan 121 
Mail Label-Farmer 130 


ane | €H>CUS<G> <S><O><F HT OCWSCASARACE> <UDKOOKLOD OTT 


FROGRAMN HAME: REMUMNBER — IGHATIUS 


TIILE “EXTENDED B.H. BASIC REWHUMBER OPTION VER. 1.6° 
STL “INSTRUCTIONS & DESCRIPTION” 
wack EXTENDED B.H. BASIC RENUMNBER OPTICHW 
WRITTEN BY MARE J. IGHATIUS 
LAKEWOOD, OHIO 
AUGUST 1978 


+ 
co 


“THSTRUCTIONS AND DESCRIPTION- 
“MARE COPIES FOR READY REFERENCE- 
~SEE PAGE 3 FOR ASSEMBLY’ INSTRUCTIONS— 


VER. 1.8 


= 


THIS PROGRAM. WHEN RUM ALONG WITH EXTENDED 
B.H. BASIC. WILL ALLOW THE USER TO 

RENUMBER HIS PROGRAM STARTING WITH ANY’ LIWE 
HUMBER AWD ITH ANY INCREMENT. THIS INCLUDES 
LINE HUMBER REFEREMHCES WITHIN THE TEXT. 


s 


THIS FROGRAMN RESIDES IN HIGH MEMORY AHD IS 
SELF-COWNFIGURING CIT WILL CONFIGURE HIGH 
MEMORY’ AUTOMATICLY. 


THIS FROGRAM “NUST’ RESIDE IN HIGH MEMORY. 

DO NOT RUM A VERSION OF THIS PROGRAM CONFIGURED 
FOR LESS MEMORY THAN IN YOUR SYSTEM. IMPROPER 
OPERATION WILL RESULT. 


THIS PROGRAM CAH BE LOADED AFTER BASIC HAS 
BEEHW WP & RUMHING. THERE IS HO NEED Ta 
RELOAD BASIC. 

THIS PROGRAM MUST BE STARTED BY PUSHING GC 
AFTER LOADING. 


asec AUT TOR sect 
LOADIHG THIS PROGRAM SCRATCHES USER PROGRAM. 
SAUE BASIC PROGRAM BEFORE LOADIWG. 


SVHMTAM SE 


REMUMBE rR START AT LINE 1@. INCREMENT OF 164 


>) 


CHMUEKG> <SICOOCP RC TICWOCADC ROSE? <UKODKLD OTT 


FRCGREAM HANE: FENURNBER ~ IGHATIUS < CONT’D > 


Be ae od 


REMUMBER START AT LINE &. INCREMENT GF 16 
REHUNBER ss. START AT LINE &: INCREMENT OF ¥ 


THIS COMMAHD IS EMTERED IM THE COMMAND MODE 
AS AMY’ OTHER COMMAHD CEG. BUILD. LIST. RUN, 
ETC. 2. WITH COMMAHD COMPLETIGH. 


Hecke SSPECTAL HOTE sescect 

THIS PROGRAM REMOVES THE “CONTINUE” COMNMAHD. 
IT WILL HO LONWGER BE WALID. Ta SIMULATE 
COMTIHUE. USE THE “STEFF COMMAND. 


EJECT 
-ERROR REFORTIHG— 


WHE THE COMMAHD IS EMTERED AND THE CARRIAGE 
RETURH HIT. THE COMMAHD TS CHECKED FOR 


WALID EXPRESSIONS. IF EITHER EXPRESSION 
EVALUATES TO @ OF 635535. OR THE RENUMBERING 


CAUSES AH OVERFLOW OUER 65525. AH ERROR 
MESSAGE IS GENERATED. THIS IS DOWHE PRIOR 
TO THE ACTUAL REWMUMBERIWHG FROCESS 50 HEW 
VALUES MAY’ BE ENTERED. 


OHCE THE REHUNEBERIHG FROCESS BEGINS 
KTHE MESSAGE “STANDBY” IS QUTPUT TO THE 
COMSOLES. IHTERRUPTS FROM THE COMSOLE ARE 
DISABLED. 


heb SSRECTAL MOTE sestce 

IF THE PROGRAM IS INTERRUPTED <STOPFED) DURING 
THE REHUMEBERIHG PROCESS. THE USER PROGRAM WILL 
BE DESTROVED AHD WILL HOT FUHCTION CORRECTLY. 
IF THE FROGRAN MUST BE STOPPED. RETURN TO THE 
HCHITOR AWD DO A “COLD START AT @46.166. 

THIS WILL OF COURSE SCRATCH THE USER PROGRAM, 
BUT WILL HOT APFECT BRSIC OR THE RENUNBER 

OPT ION, 


BURGHG THE REHUMBERING PROCESS. IF AH ERROR 
IS FOUND. SUCH AS A MISSING LINE NUMBER 


a) 


SHSCUSKG> <SPKOPKF OKT OCWSKADCROXED> <U><O><L> II 


FROGRAM HAME: REWUMBER - IGHWATIUS < CONT“D > 


LEG. GOTO 1486. WHERE LINE 1666 DOES HOT 
ESiST2. AW ERROR MESSAGE IS DISPLAYED 
OH THE COHSOQLE IN THE FORMAT: 

ERR - LH# See 
THIS NERHS THAT LIHE S@e@ WAS FOUND TC 
HAVE AW ERROR IN IT. THE LIHE NUMBER See 
IS THE LINE HUMBER OF THE PROGRAM “BEFORE” 
IT WAS RENUMBERED. ONLY’ THAT PART OF THE 
LINE FOUND To BE IH ERROR IS IGHORED. 
THE REST OF THE LIHE WILt BE FIXED. 
THE SAME LIHE NUNBER MAY BE LISTED MORE 
THAH OMCE. AWD ALL LIMES WITH ERRORS 
WILL BE LISTED. 


IF. WHEM WORE IHG WITH A LARGE PROGRAM, 

A LIME IS CHANGED TO CONTAIH MORE 

CHARACTERS SO THAT A MEMORY OVERFLOW 

WOULD RESULT. THE WHOLE LIHE WILL BE IGHORED 
AHD AN ERROR MESSAGE WILL BE GENERATED 

IN THE FORMAT EXPLAINED ABCVE, 

ALSO. ANY CHAHGE THAT WOULD CAUSE THE LIWE 
TO EXCEED 99 CHARS IS IGNORED AND AN ERRCR 
IS FLAGGEPCAS ABCWED. SOME LINES MAY EXCEED 
S@ CHAR’S (81-99) AHD MOT BE FLAGGED AS 
ERRORS. THESE LINES ARE GK AMD WILL FUNCTION 
CORRECTL'. 


STL “RSSENBLY THSTRUCTIONS “ 
oo ol eg 
me fe St oe fe ht of i ee fe ee ee ede re de fe ef ens ce oe oe 


ASSENBLY INSTRUCTIONS 


ALL THAT i5 NECESSARY TO RSSEMBLE THIS 
FROGRAM IS TO EQUATE TWO LABELS. 

+++ HO OTHER UNDERSTANDING OF THIS 

+++ PROGRAM IS HECESSARY. 


“FIRST LABEL- 
THE FOLLOWIHG LABEL C#MLMITS IS Ta BE SET Ta 
THE HIGEST MEMORY ADDRESS IH YOUR SYSTEM. 


tl 


<HPCUDSG> <S>MO2MF A TOMWOKADKROCED <<U>COOKL? TI 


PROGRAM MAME: REMHUNBER —- IGHATIUS < CONT“D > 


a EXAMPLES: 

# IF ‘OU HAWE 24k. SET EQU TO 177S377A 

# IF ‘YOU HAE 16K. SET EQU TO 137377A 

Bo 

+ -HERE’S THE LABEL-— 

EMLMIT Ei 1Srare7A FOR 16 OF MEMORY 


THE PROGRAM WILL LOCATE ITSELF AND 
COMPIGURE HIGH MEMORY BASED GN THE 
ABOVE LABEL. THIS PROGRAM WILL START 
APPROSIMATLY 1K BELOW THE ABOVE LABEL. 
CACTUAL PROGRAM IS 7°92 BYTES IN LENGTH)? 


—SECOND LABEL— 

THE FOLLOWIHG LABEL C#VERS> WILL DIRECT 
THE ASSEMBLER TO ASSEMBLE FOR THE VERSION 
OF EXTO. B.H. BASIC DESIRED. 


FOR WVERSTIOH 18.61.01 SET EGU TO @ 
FOR VERSION 16.62.81 SET Eau Ta 1 


SRSES SERRE EHR EEE 


“HERES THE LABEL- 


$UERS Et 8 FOR 18.01.81 
mack 6 AP TEER THE ABOWUE TWO LABELS HAWE BEEM 
of CHAMHGED. THE PROGRAM SHOULD BE SAVED 
e THEM ASSEMBLED. 
so 
teoE ace HOITE sk 
HB THIS FROGRAMN [5 SET UF SO THAT ALL DATA IS 
ae LISTED Oh THE LIST DEWICE WHETHER ASSEMBLED 
# CH HOT. DATA HOT ASSEMBLED WILL HOT HAVE DATA 
Ba CH THE LEFT SIDE GF THE LISTING. 
Eo 
+" 
St “EQUIVALEHCES AMD SETUP? 
Si col af 


Sk STHET OF PROGRAM 


PROGRAM 


be os os of 


seo 


SERADR 
$CMNRD 
START 
GETVALU 
ERR.CC 
ERR.IH 
ERR. Iu 
ERR. OV 
REPLACE 
LELT 
TESTCHR 
TDI 

FTA 
CHARCHT 
CRLF 
GDIGIT 
SECSIC 
CLDEHD 
HIGHMEM 
COMMSTR 
BUFFER 
FROGRAM 


bos et ae of 
5 
5 


PREF OMT SCWOSASAROCE> =<USKORKL> I 


HANES REHUMBER - IGHATIUS < CONT“D => 


ORG 


fMLMIT-1624 


THE FOLLOWIHG 2 


LISTING AND 


LOH 
iF 


EQUIVALENCES 
ASSEMBLED 
OTHERWISE THE'’ ARE 


ARE 


I 
SVERS 


LF 


INSTRUCTIONS ARE FOR 
ASSEMBLY CONTROL 


List ALL OTA 
TURH OFF IF $VERS=1 


FOR 14.81.81 
fVUERS = & 


SKIPPED 


EGU 842121A BRAHCH ADDRESS 

Eu G@63162A COMMAHD WORD ADDRESS 
EGiu 8481 GGA START OF BASIC 

EQu G@I33315A GET VALUE FROM COMMAND 
Eau G64 236A ERROR — CONTROL C 

EQu G64274A ILLEGAL NUMBER 

EG G64302A ILLEGAL USE 

EG G64317A OVERFLOW 

Egil B65 153A REPLACE LINE ROUTINE 
Egil Ger 264A FLOAT HUMBER 

EGU @PGi21A TEST FOR VALUE INPUT 
EG G71 36°A TYPE DECIMAL INTEGER 
EG BP 6336A FLOATIHG POINT Ta ASCII 
EGU GP Par ZA COUNT CHARACTERS 

EQU {@G@e11A CARRIAGE RET - LINE FEED 
EQu 1G@GG27A GET A DIGIT 

EQU 1@1122A SET $CSIC INTERRUPT 
Ett 162331A OLD PROGRAM EMD 

EGU 1G2362A COMF°D HIGH MEMORY 

EQu 18237°2A COMMAHD STRING 

EGU 1G@3136A TEMPORARY STORAGE 

EGQu 1G@3363A START OF BASIC PROGRAM 
EJECT 


THE FOLLOWING DIRECTIVE CHANGES THE 
ASSEMBLY FLAG 
IF WERSIOMN 18.61.61 WAS BEING ASSEMBLED. 


an 


FROGEAL 


Mee ede 


FERADR 
$CMURD 
START 
GETVALU 
ERR.CC 
ERR. IN 
ERR. TU 
ERR. OW 
REPLACE 
IFLT 
TESTCHR 
TDI 

FTA 
CHARCHT 
CRLF 
GDIGIT 
S#CS5IC 
CLDEND 
HIGHMEM 
COMMSTR 
BUFFER 
PROGRAM 


Be or ets vita vt 


HAMNE® REMUMBER ~- IGHATIUS < CONT“D > 


THE FOLLOWIHG WILL MOT BE. IF 1@.@1.@1 
MAS HOT BETHG ASSEMBLED. THE FOLLOWING 
WILL BE. 


ELSE 
EJECT 


EQUIUALENMCES FOR 16,@2.@1 
ARE ASSEMNBLED IF #VERS = 1 


It 


OTHERWISE THEY ARE 


SKIPPED 


EGHI Hid 2 1 OSA BRAHWCH ADDRESS 

EGU He S 368A COMNMAHD WORD ADDRESS 
EGU Be. GGA START OF BASIC 

EGU Ba4O32A GET VALUE FROM COMMAHD 
Emu B65 1G5A ERROR -— CONTROL C 

EGU A6S143A ILLEGAL HUMBER 

EGu G65 151A ILLEGAL USE 

EGU G@65175A CWERFLOd 

EGU FeegGS4A REFLACE LIHE ROUTIWE 
EGU G73 76H FLOAT HUMBER 

EGU G7 1387A TEST FOR VALUE INPUT 
EGU AY 4e46F TYFE DECIMAL INTEGER 
EGUL 1@12355A FLOATING POINT Ta ASCII 
Etitt LGSG11A COUNT CHARACTERS 

EGU L1GS636A CARRIAGE RET -— LINE FEED 
EGU La@se46A GET A DIGIT 

EGU Le4648R SET #¢CS1IC INTERRUPT 
EGU 1@S 253 OLD PROGRAM END 

EQU iBSse4+F COMED HIGH MEMORY 

EGU IGSZ14A COMMAHD STRING 

EGU 1@6866A TEMPORARY STORAGE 

EG 186226A START OF BASIC PROGRAM 


THE FOLLOWING DIRECTIVE CRUSES THE REST 


OF THE FROGRAM TO BE ASSEMBLED REGARDLESS 


OF AMY ASSEMBLY FLAGS. 


EMDIF 
EJGLT 


SHOCUS<G> <SS<OS¢F HC TPKWSCAOCROCE> 6 <<USKO><L> II 


FROGRAM WANE: REHUMBER - IGHWATIUS < CONT’D > 


ba os On od 


EMTRY 


EMT 


$MSET 


BS oy os 


oe 


RHMSG 


INITIALIGE APPROPRIATE BASIC VERSION 


TRAHSFER HEW COMMAND WORD To BASIC 


Lisl H.» ¢CMWRD COMMAND WORD LOCATION 
LHI D.RAMNSG HE COMMAND WORD 

MUT Bs & & CHARACTERS 

LDAK [ GET A CHAR 

Mow M.A MOVE IT 

THe H BUMP POINTERS 

INS D 

DCR BE DOHE? 

JNZ EMT’ NGT YET! 

SET ERAWCH ADDRESS TO THIS PROGRAM 

LxI H. REHUME ADDR OF THIS PROGRAM 
SHLD #BRADR MQVE IT TO BASIC 


CONFIGURE HIGH MENOR' 
EQU *+16 MEW MEMORY LIMIT 


LxI H. $MSET GET LIMIT 
SHLD HIGHMEM se? iT} 


Gc TO BASIC eH 
IMF STHET COLD START 


REHUMNBER COMMAHD WORD 


DE “REMUMBER * 

STL “RENUMNBER CGFPTION STORAGE AND DATA” 
EJECT 

REHUMNBER OFPTICQH STORAGE & DATA 

EGU if DEFAULT VALUE 

EGU 84811GA ADDR OF RETURN 


“J 


RHeAUPtGS SS2COS4F OT OCWRASC ROSES 6 6<USKOSKL OS 6OTT 


FROGEAM HANES REMUMBER - IGHATIUS «< CONT“D > 


RSTRT EGU G4G103A RETURN TO BASIC 
IHCREM bul TEN INCREMENT 
LINNG Did TEM STARTING LINE NC. 
CURLIH Did TEN CURREHT LINE NG. 
PNTRA = DS 2 CURRENT LIME POINTER 
PHTRE = DS 2 INTERHAL LINE POINTER 
CFLAG DE a COMMA FLAG 
CHRCHT DE a REPLACEMENT STRING COUNT 
CLDCNT DE a CLD LINE CHAR. COUNT 
ERRCNT DE a ERROR COUNT 

STL “IMITIALIZATICN & GPEMING TEST~ 

EJECT 
weieee = START GF REMUMBER OPTICN 9 sect 
# COLLECT INPUT EXPRESSIONS CIF ANY? 
REMUME CALL = S#CS1C SET CTL-C INTERRUPT 

Dw ERR. CC 

LHI D. TEN 4=1@ DEFAULT 

PUSH =D SAVE Y (=19) 

CALL  TESTCHR TEST FOR ® ENTRY 

FINA Fi AM ENTRY? 

iz NUMTST Nl! 

CALL GETVALUE = YES. GET IT 

POP H GET ¥ 

PUS [> SAVE x 

CALL  TESTCHR TEST FOR VY ENTRY 

AMA A ENTRY? 

a2 NUMTT Ho Vv ENTRY 

RST g SET FOR NEXT GET 

DE 2726 


CALL GETVALU GET YY VALUE 


see TEST ITHFUT PARAMETERS 
* CDES=¥ INCRENENT 
% CSTACK I= STARTING LIME Ha, 


| a. 


PROGRAM HANME: 


HUNT ST 


HUNT T 


HUTST1 


ae 


EMDTST 


EMDT 1 


<US<KO34L> II 


REHUMBER - IGHATIUS < CONT“D > 


“CHG CHL 2=INCREMENT 

CALL ILHTST IS INCREMENT Ok? 

Jz ERR. IH HO 

SHLD INCREM SAVE IT 

Mow B.H MOVE IT TO <BC>d 

MoV Cr 

POP H GET STARTING LINE Wd. 
CALL ILHTST IS LINE NO. OK? 

Jz ERR. IN Hc 

SHLD LINHG SAVE IT 

LHI D.PROGRAM “DES=TEXT POINTER 
CALL EMDTST TEST OF EXISTING PROGRAN 
Jé ERR. IU ILLEGAL USE. HO PROGRAM 
CALL FHD2RO NOWE TO HEXT LINE 
DAD EB MEST HEW LH # 

Jc ERR. a LH # QUERFLO 

CALL ILHTST TEST NEW LH # 

Jé ERR. IH ILLEGAL LN # 

CALL ENDTST TEST FOR FINISH 

JH2Z MUTST 1 NOT YET 

TEST 15 OK. SEHD NESSAGE AND GO 

RST : 

DB fo “STAHDBY” 

CALL CRLF 

CALL S#CSIC DISABLE CONSOLE INT 
Dil $RET 

IMF REHUGC GB TO iT?! 

Sr “IHITIAL SUBROUTINES” 

EJECT 

TEST FOR LH # = TQ 3¥Y.a"?7 

LDAX D 

THe D 

CPI arr 

JHE ENMDT 1 

LDAYS D 

CPI SF Fa 

INS 8) 


SH2CUS<G> 


PROGRAM HAME® 


Me 


ILHTST 


ILHT 


th 


FHD2RO 


REMUG 


REMCOH 


RET 


TEST FOR ‘CHLO= 
May A.H 
AHA Ai 

JH2 
Mou AL 
AHA A 
Re 

MoH) A 
THR A 
RHZ 

MoV A 
IHF A 
RET 
MOVE TO EHD 
LDAR D 
THis D 
CPI 5 
JHE FHDZRG 
RET 


SEL 

EJECT 

REMHUMBER 
ALL DATA SAVED 


REGISTERS FREE TO 


mRA A 

STA ERRCHT 
LHI H. PROGRAM 
Mc E.f 

THs H 

MOV DM 

THe H 

ACHG 


{S24 024F 2a T oC WPCA ROSES 


RENUMBER - IGHATIUS < 


Bae 


OF LINE 


qUS<O><L> I1 


CONT“D > 


-8606 OR 377.377 


KHO=8y 
Hd 


CLo=87 
CHL =i 


CHEST T? 


Ho 


on a dee De 
CLISkyl Pr? 


GET CHAR 


EGE 
He 
AT EMD! 


ve Le 


“REMUMBER CONTROL” 


COHTROL ROUTINE 


USE 


CLEAR ERROR COUNT 
POINT TO FIRST LN # 
KDE?=LN # 


TEST FOR END 


1& 


OQ = ¢H><U><G> 


FROGRAMN NANE: REHUMBER 


RENC 
‘é) 

bs 

oe 

CODTST 

CODT 


CS2<OSKF OMT OCW CAS ROS E> 


- IGNATIUS < 


€U><O><L> II 


CONT“D > 


ACHG 
2 RENULN GO REWUMBER THE LINES 
CALL CODTST TEST FOR CODE IN LINE 
Jé REHCOH HO CODE. DO MORE 
SHLD FHTRA SAVE FOR LATER 
LaI B.COMMSTR COMMAND STRING POINTER 
Mow A.M MOVE TEXT LINE TO 
STAX EB COMMAND BUFFER 
Ine H 
IH B 
ANA A DOME? 
JH REMC HOT YET 
ACHG 
SHLD CURLIN SAVE THE LH # 
CALL MODIFY Fix THE LIME IN COMMSTR 
JNZ SKIP LINE WOH’T FIT IH MEMORY 
LHLD CURLIM RESTORE LN # 
aCHG 
LHI H- COMMSTR POINT TO COMMAHD BUFFER 
CALL REPLACE REPLACE THE LINE IN TEST 
LHLD PHT RA LH # POINTER 
“CHG 
CALL FHD2RO MOVE TO EHD OF CHANGED LH 
“CHG 
IMF REMCOM DO AHOTHER LINE 
STL. “CODE TEST* 
EJECT 
TEST FOR CODE IH CURRENT LINE 
PUSH BD SAVE LN # 
PUSH H SAVE POINTER 
Mow Aah GET CHAR 
AHA A TEST if 
JZ NOCOp END OF LIWE 
JP COpN HOT A CODE 
CPI 217°Q 
Jz YESCOD ITS A GOSUB 
CPI 2280 
JZ YESCOD ITS A GOTO 
CPI Zi2t 


23 


SHeGUPKG> <SP202¢F MT PUPSA SAR OSES <USKORML> 11 


PROGRAM HAME: REMUMBER - IGHATIUS < CONT’D > 


JZ CHTRT ITS A CHTRL 


CPI 2610 
mia THLS its A THER 
EPI 223 


JZ THLS itS f LEST 
CODM THs H HQ CODE YET 
JMP CORT TR'’ ANOTHER OWE 


i FOUND CHTRL, TEST FOR &@ 
CHTRT TALL WEEDSP WEED OUT SPACES 
CPt @6a0! Lo 41 OF 
JZ YESCOD VES 
IMF CODM HO 
a FOUMD THEM OR LIST, LOCK FOR # TO FOLLOW 


THLS CALL WEEDSP WEED OUT SPACES 


CFI Bee 
At CODM < “e" 
aa Br 2a 


ate VESCOD VES A F 
IMP CoOoT 


EJECT 
of WEED CUT SPACES 


WEEDSP IW H 
WEDSP Mon AST 
ge ae 5 IT SPRCE? 
Je WEEDSP NES. KEEP MOUTHG 
RET Hd. DOME 


# HO CODE FOUND IN THIS LINE 


HocaD POP D DISCARD OLD POINTER 
FOF D DISCARD LH # 
THe H BUMP POTHTER 
aRA A CLEAR FLAG 
RET 


SHSAUs<G> 


CSPKOPKF OK TOMWSKASKROSE> <U>KOO<L> II 


FROGRAM HANE: REHUMBER - IGHATIUS < COHT“D > 


Mh 


YESCOD 


Bo 


REHULN 


REL 


Me ee 
ee ot 


REMDOM 


COBE FOUND 


POP 
POP 
MUI 
AA 
RET 


STL 


EJECT 


RESTORE OLD POINTER 
RESTORE LH # 
SET FLAG 


“LINE RENUMBER AHD EXIT” 


TEXT MODIFICATION DOHE 


RENHUMNBER THE LIMES 


THCREM 
EB. H 

Ea 

LING 

D. PROGRAM 
EMDTST 
REMDOM 

D 

{ 


gE 
FHDZEC 
REHL 


INCREMENT TO “BC 


LINE HO. TQ CHL? 
{DE2= PROGRAM POINTER 
TEST FOR END 

YES. EXIT 

NG, BACK UP 


{DE=LN #. CHLO=PHTR 
MOVE WHEW LH # TO MEMORY 


{DE =PHTR, CHLO=LH # 
ADD INCREMENT 

MOVE TO EHD OF LINE 
DO MORE 


RENUMBER OPTICH COMPLETE 
RETURH TO BASIC 


CRLF 


9) 


SEHD MESSAGE 


16. °REHUMNBER COMP. 


ERRCHT 
A 


GET ERRGR COUNT 
AH’ ERRORS? 


RH-USKG> <S>4 OSC Sh TSC cA ec ROSE? 


FROGRAM NAME: FEHUMBER - IGHATIUS < 


veoh 


ME 


MODIFY 


MODFCG 
MOF C 


JZ 
PUSH 
RST 
DE 


POP 
MoU 
PUT 
CALL 
CALL 
CALL 


RETURH Td 


JMP 


si 
EJECT 
MODIFY 


Lil 
CALL 
STA 
DCH 
THis 
Maw 


9. “ERRORS = 


BASIC 


RSTRT 


2UScOraL> Li 


CONT“D > 


SAVE THEM 
> MESSAGE 


GET ERRORS 
HO. GF ERRORS TQ <DE> 


PRINT HO. QF ERRORS 


RETURH 


“LINE MODIFICATION” 


THE LIWE 


H. COMMSTR 
CHARCHT 
CLDCHT 
H 

H 

A.M 

A 
MNODFOH 
MODF CO 
2120 
CHTRLG 
ZL 
MOTOHC 
2280 
MOTOR 
2610 
MHOTOnG 
2250 
MOT OHC 
MODFCO 


POINT TO COMMAND 
COUNT CHARS 
SAVE COUNT 


STRING 


BUMP POINTER 


BET A CHAR 
a? 
YES. LINE FINISHED 


HOT A CODE. CONTINUE 
HAVE CHTRL CODE 

HAVE GOSUB 

HAVE GOTO 

HAWE THEM 


HAVE LIST 


i4 


SHO<CUS<G> <S>K ORME OC TOMWUSKASCRICES> <N>KG><L> II 


PROGRAM MAME: 


bd 


CHTRL@ 


od 


MOTO 


Bd 
thick 
shok 
Bs 


se MEE 


HAVE A CONTROL CODE 


CALL 
CPI 
IH2 
CALL 
CPI 
JHE 


WEEDSP 
é re s 

MODFCC 
WEEDSP 


ERRI 


REMUMBER - IGNATIUS < COHT“D > 


WEED OUT SPACES 
io 2) Be? 

Hd 

WEED MORE SPACES 
COMMA FOLLOW? 
HO, ERROR 


LOOK FOR # TO FOLLOW 


CALL 
SHLD 
CPI 
JIG 
CPI 
JHC 


FOUND A 


CALL 
ACHG 
CALL 
nCHG 
Jz 
Mow 
ANA 
J2 
STA 
CALL 
STA 


WEEDSF 
PHTRE 
BS6aQ 
ERR2 
a72Q 
MODFC 


#, PROCESS 
OFF GEH 


ILHTST 


STATUS REPORT: 
SDEX=LINE HO. TO LOOK FOR 
PHTRE=SET 
CFLAG=SET 


WEED SPACES 
SAVE POINTER 


<8. HO GOOD 

+9. HOT A # 

iT 

GENERATE OFFSET OGCTAL # 
TEST FOR LEGAL # 

Ha GOOD 

GET CHAR COUNT IH «AD 
is iT B? 

YES. WO # FOUND 

SAVE COUNT 


WEED SPACES 
SAVE COMMA FLAG 


CALCULATE THE HEW LINE NC. 


LHLD 
Mow 


IHCREM 
B.H 


CBC o=INCREMEMT 


SHSCUSKG> <SS4 OSM FACT OMWPCASCR SOMES SU 2KORKE > OLD 


PROGRAM HAME: RENMUMBER —- IGHATIUS < COHT“D 7 


Maw Cok. 
LHLD LIHHG STARTING LH # 
PUSH H PUT IT OH THE STACK 
Lisl H. PROGRAM FPOIMT TO PROGRAM 
GEHCOH MOV A. DOES LOCK # MATCH 
THH H 
CMF E 
JHE GEHC HO MATCH 
Maw Ash 
CMP t 
JE MATCH YESs GOT if 
GEHE IHx H 
“CHG KHLO=LOOK #. {DE=PHTR 
CALL FHD2RO MOVE TO END OF LINE 
CALL EHMDTST is THIS THE END? ? 
DCH Dp BACK UP FOIHTERS 
BCX D 
Jz ERRS YES. LIME HOT FOUND 
“CHG CDE=LOOK #. SHLI=PHTR 
”ATHL CHLO=LH #. “STACK S=PHTR 
DAD B ADD IHCRENENT 
Jc ERRS QVERFLO 
STAHL CHLI=PHTR. “STACK 3=HEW LN # 
JMP GEHCOH DO MORE 
a FOUMD THE LINE 
MATCH FOP H GET WHEW LH # 
“CHG SWAP 
Mow Fis H ARE THE’ EQUAL? 
CMF D 
JH2 GEMASC Ht 
Mau AeL 
CMP E 
Jé NCOH =, HO CHANGE HECESSARY 
aaa GEMHERATE ASCII STRING FROM VALUE 
& ENTER: <<DE2=VALUE 
of EXIT: CDE.=HDDRESS OF LAST BYTE 
CAS =LEHGTH OF STRING DECODED 


ce USES: A. F.BLE.HeL 


o 


SHOCUPSG> CSCO E PCT PAUOKAP<KROSE> SUSKORKL> 61 


PROGRAM HANES RENUMBER - IGHATIUS < COWNT“D > 


GEMASC 


SUPPR 


CALL iFLT CHANGE # TO FLOATING FT. 
LT H. BUFFER STORAGE FOR STRING 

CALL FTA CHANGE F.P. 1G ASCII 

AHA A 

Je ERR2 VALUE WAS & 

SUPRESS LEADING ZEROS 


Mc B.A MOWE COUNT TO <B> 
L¥I H» BUFFER POINT TO STRING 
IHX H REMOVE LEADING AND 
DCK B TRAILING SPACES 
DCK BE 

Mow A.M GET A CHAR 

CPI ‘ae ASCII @? 

JHE CHECK Ht. DONE 

IHX H VES. STEP AWAY 
DCF E COUNT—1 

IMP SUPPR DC MORE 


STATUS REPORT: 
CHLO=NEW BUFFER POINTER 
CDE=ADDRESS OF END OF BUFFER 
CB2 =# OF CHAR’S IN BUFFER 


CHECK STRING PLACEMENT LEHGTHS 
{BO="HEWS STRING LENGTH 


PUSH H SAVE BUFFER POIHTER 
LHLD PHTRE THTERHAL LINE POINTER 
LDA CHRCHT "OLD" STRING LENGTH 
CMF B COMPARE WITH “HEW* 

JZ “FER EQUAL 

JP CLOSE “OLD* >"HEW? 


HEWES > OLDCAS OPEHW UP LINE 


Mow C.A SAVE “OLD” IN «C> 
FUSH H SAVE <HL> 
LHI H.COMMSTR START OF COMMAHD STRING 


HEL. 
5 ws ees 


PROGRAM HAME: 


OPEC 


CLOSE 


CLE 


G> <S>tOe<CFo<T oc Wc Ao<Ro<E> 


CALL CHARCHT 
ADD B 

SUB & 

POP H 

CPt 1a 
JHC ERES 
MT MN. & 
IHX H 

SCHG 

CALL FHDSEO 
DCH D 

Maw A.B 
SUE tc 

ADD E 

Naw Lif 
MUTI A. 
AGC — 

Mau H.A 
LDAX o 

re M.A 
DER G 

DCH H 

LDA} a 

Mow M.A 
AHA A 

JHE GPEC 
IMF HFER 
OLOCAS > HEWCB> 
CHLO="TO" ADDRESS 
SUE = 

AbD L 

FW E.A 
MET AG 
ADC H 

Mow DLA 
LDA D 

Mow M.A 
THE 7) 

IHE H 


REHUMBER ~— IGHATIUS < CONT’D > 


COUNT CHARACTERS 
GENERATE HEW 

COUNT 
RESTORE “HL> 
MORE THAN 99 CHAR’S?? 
VES, TO MANY CHAR’S 
STORE STOP CHAR 


FIHD EQL ADDR. 
{DE=FROM ADDR. 
HEW TO “AD 
SUBTRACT OLD 

“TO° ADDR IN CHL> 


GET IST BYTE 
MOWE IT 
BUMP POTHTERS 


GET A BYTE 

MOVE IT 

DOHE? 

HO. MOVE MORE 
VES. GO TRANSFER 


CLOSE UP 


“OLD* — “HWEW* 
“FROM” ADDR IH “DE 


GET FR BYTE 
MOWE IT 
BUMP POINTERS 


18 


FROGRAM WAME: 


bs 
ak 


NCO 


MCLOP 


CS>MO3KF MTICUSSADKROKED <UKODKLD TI 


FRA 
INZ 


A 
CLOC 


REHUMBER — IGHATIUS < CONT“D > 


DONE? 
HO. MOVE MORE 


TRAHSFER BUFFER To) LINE 


LHLD 
xCHG 
POP 
MOV 
STAN 
INS 
IN® 
DCR 
JINZ 


PHTRE 


LOAD LINE POINTER 

MOVE IT TO <DE> 
RESTORE BUFFER POINTER 
GET BUFFER CHAR 

MOVE IT 


DONE? 
HO. MOVE MORE 


THE STRING I5 FIXED 
GO BACK AMD CHECK FOR MORE 
LINE FIXING 


LHLD 
LDA 
CPI 
JHZ 
Mcw 
CPI 
J2é 
IHS 
JMP 


EJECT 
PROCESS 


CALL 
IMP 


POP 
POP 
CALL. 
IMF 


LINE COMPLETED. 


PHTRE 
CFLAG 


MODEC 
eM 


MOTONG 
H 
MCLOP 


ERRORS 


ERROR 
MODFC 


EB 

= 
ERROR: 
MCOM 


GET POINTER 

GET COMMA FLAG 

WAS IT A COMMA? 

HO, COMTIHUE 

YES, GO BACK & FIND IT 


GOT IT. NEW POINTER SET 


SEND ERROR MESSAGE 
CONTINUE 


REMOVE A PUSH 

REMNQUE A PUSH 

SEHD ERROR MESSAGE 

TEST FOR TYPE OF CONTINUE 


CHECK FOR RoOCM 


wo 


JHE SS 
“% ibs, ai S 


G> <S><OPKF SC TSCWOKA OK ROK E> <USKO><L> 6IT 


PROGRAM HANES REMHUMBER - IGHATIUS < COHT“D > 


oe 


MODF DH 


te 


MOBOK 


MODHG 


ae 


OFF GEH 


OFFGE 


IH THE PROGRAM 


LHI H.COMMSTR COMMAHD STRING POINTER 
CALL CHARCHT COUHT “HEW CHARS 
Nau B.A “HEW? IH <B> 

LDA OLDCHT “OLD” IN ¢AD 

CMP E ©“OLD’—-“HEW > 

JHC MOCK “HEM <= “OLD” 

Maw C.A "HEWS > “OLB? 

Mow A.B 

SUE & GEHERATE DIFF. 
LHLD OLDENE: CLD MEMORY EHD 

ADD LL GEMHERATE HEW END 
Mai E.b 

MUI A. & 

ADC H 

au G.H 

LHLD HIGHMEM COMF°R HIGH MEMORY 
Mow ALL SUB HEL FROM LIMIT 
SUB E 

Mc AH 

SEB D 

J¢ MODHG WOM Tt FIT 


EXIT MODIFY ROUTIHE 


“RA A EVERYTHIHGS OK 
RET 

CALL ERROR LINE WOHN’T FIT 
MUT Aol 

AWA A 

RET 

STL “SUBROUT IHES ~ 

EJECT 

GEHERATE OFFSET OCTAL VALUE 

Lil D. 8 

Mai B.D 

CALL GDIGIT GET A BIGIT 


ec» SHFCUS<Gs 


CSC OSKF SAT OCW SSAA ROCE> = <UPCOS< LD 


PROGRAM NAME: REMUMBER — IGNATIUS < COHT“D > 


ERROR 


SEHD 


FuSH 
RST 
DB 


LHLD 
RCHG 
CALL 
CALL 
LeI 
THR 
FOP 
RET 


EME 


ERROR MESSAGE 


H 


> 


ig. “ERR - L 


CURLIN 


TDI 

CRLF 

H. ERRCHT 
M 

H 


ENTRY’ 


HOT A DIGIT-DPOHE 
SAVE POINTER 


MULTIPLY CHL> BY 16 


QUERFLO 


ADD NEAT DIGIT 
QUERFLO 


RESTORE POINTER 
COUNT A DIGIT 
HEXT DIGIT 


Ta COMSOLE 


SAVE 
SEHD MESSAGE 
He” 


GET LINE Nd. 
PLACE IN “DE> 
PRINT IT 


POINT TO ERROR COUNT 
ADD 1 
RESTORE 


I] 


L S24 O34F 24 TOCA Ke ROK E> 


FROGRAM HAME: REHUMBER“MERGE — MOSS 


££ + € + 


+ 

BLY 
LIHB 
HP 
CRCSUM 
RHE 
SES 
RHF 
TPERRS’ 
ABUSS 
FRCHAR 
ERICHAR 
$PRSCL 
COLMOG 
ss 

Hes ee 

# 


Bs 

. GOSUE, 
aur. 
. THEH, 
Ba 
peskabseok 
oe 


TITLE 


EQ 
Emu 
EQU 
Etiul 
EGu 
EQuU 
EG 
EGU 
EGU 
EGU 
EGU 
EGU 
EGU 


* COMMAND CODES IH 


Ett 
Ee 
EGU 


CUE<O24L> 


“BASIC RENUMBER AWD MERGE —- VERSIOH 2.06% 


Mee ot dee et ee ee oe ee et oe he ok 
BASIC REHUMBER AHD MERGE PROGRAM - VERSION 2.& 
WILLTAR MOSS 
Bs Ss Oe Oe Os Oe be fabs OB Oke Ube he be Se oe oy ob od 


~ 16/217 7s 


BeGG53 

BaSS4A 
AGSE17A 
@4G827A 
BE2I31A 
G@2265A 
B862325A 
B4GG21F 
B4G824F 
S461444 
A4G147°A 
G4G152A 
a4@253 


EBHB 


2170 
2280 
2610 


* VARTABLE DEF INTIONS 


on 


TITLEH 
ME 

BS os OB Oks os 
Bg 


IBUFLEH 


EGQu 
Emu 


ORG 
IMP 


B48180A 
INIT 


DELAY 
WRITE 


CHECK 


READ HEXT BYTE 

SCAM FOR TAFE RECORD 
HEST PAIR 

FROHT PANEL TAPE CANCEL ROUTINE JUMP 
ADDRESS FPLED STORAGE 


READ 


CALLS TO HEATH ROM AND COHSOLE DRIVER ROUTINES 


ROUTINE 


NEXT BYTE 
WRITE HEXT FAIR 


SUM DATA 


START 


CONSOLE READ CHARACTER 
CONSOLE WRITE CHARACTER 


FRESET CONSOLE URRT 
COHSOLE COLUMN HUMBER 


LENGTH OF CONSOLE INPUT BUFFER 


LEHGTH OF TITLE BUFFER 


© 


C 


SHe<U><Ge 


<So<OS4F OM TOK WPKASSROSKE> «<<UOKO>KL> II 


PROGRAM NAME: 


HOE EEK 


MEEK 
Bo 
ORG 
L'’ <6@41144A5 
INIT 


DE 
@ 
COMMAND 
DE 
7°. 2480 


Jé 
LOAD DONE 


COMIN 


Ba 
a 
SDUMP 


IMF 


ORG 
DW 


CALL 
CALL 


RENUMBER-MERGE - MOSS < CONT’D > 


COMMAND 


G4G258A 
64611GA JUMP TO RETURN ON CNTRL A THRU D 


841144A SET JUST ABOVE COHSOLE DRIWER HORMAL 


$PRSCL SET CONSOLE UART 
PRINT 
@. “BASIC RENUMBER PROGRAM - VERSION 2.6°.@. 266 


PRINT 
&, “COMMAND “LOAD. DUMP. RENUMBER. MERGE, TITLE 


QUERY 
“LDRM’. “T”+266Q 
A 

COMIN IF WOT NOW LOADING. SEE IF PREVIOUS 
THEMD HL=6 IF NO LOAD HAS BEEN COMPLETED 
H 
LOF 


IMPTBL 
ALOAD. XDUMNP. REHUM, MERGE. #TITLE 


PRINT 
“NO PROGRAM LOADED YET”. 28@a 
COMMAND 


TSEND 


ay 
—! 


SHOCUSKG> <SE4GSK FOC TOMWOCASCRISKE> <U><O><L> TI 


PROGRAM HANES REMUNBER-MNERGE - MOSS < CONT“D > 


“LOAD Lisl H, THS TART 
BAER LODUMP 
JMP COMMAHD 
od 
teokk 
5 
REHM CALL FRIWT 
DE &. “REHUMBERIHG TO START A‘. “T* +2660 
CALL INF HUM HL=IHFUT INTEGER 
SHLD LHS TART 
SHLD HEMWLH 
CALL PRIHT 
DE “LIHE HUMBER INCREMNEN’. “T’ +2600 
CALL THRHUM 
SHEE LHIHC 
LHL TREHMD 
Mow DH 
hoi ne 
INF H 
THR H SKIP 2 PAGES TO ALLOW FOR EXPANSION 
SHLD LHTABLE 
DCs H 
Mc) E.H 
ho Crt BC="TENFPORARY EMD OF TEXT" 
LHI H. THSOTART 
CALL SHIFTER 
LHLE: LHTABLE 
“CHG 
SHLD TEMP ST 
LHFOUHD Mal ALM 
Mod B.A B=LOW BYTE OF OLD LIHE # 
STAH D 
IHX H 
THs B 
Mow A.M 
STAM Dp STORE HIGH BYTE 
AHA E 
CEPT ay rt 
Je TELDOWE IF LINE # THELE COMPLETED 
PUSH pr 


co CHELUSSG? 


FROGRAM NAME: RENUMNBER-MERGE -— MOSS < 


F IMNDZER 


eH 
SHIFTER 


MOVEY TE 


Heke 
TELDONE 


KS OMOSKF PA TOW CASK RSS ED 


PUSH 
PLISH 
CALL 
Mei 
hci) 
POP 


INE 


Lal 
DCH 
“CHG 
LHLD 


NEWLH 


FIHDZER 


LNFOUND 


CONT ’D 


4US<Oe4L> II 


* 
< 


REPLACE OLD # WITH NEW 


B MOWES BLOCK UP IH MEMORY 


B.D BC=COUNT 


H 
D 
A.M 
D 
H 
C 


c 
MOVEY TE 


D 


H. THSTART 
H 

DE-> NEW TEXT 
TEMPST HL=-? OLD TEXT 


HL=OLD END OF BLOCK 
DE=HEW END OF BLOCK 


CHOCUS<GS «6 SSMOSKF OM TOCWOCASSROCE> §=6<U>KO><L> TI 


PROGRAM HAME: REHUMBER-MNERGE - MOSS < COHT“D > 


HESTLIM Maw ALM 
INs D 
STAH D 
Mc cC.A 
Ink H 
Mow Aah 
THs D 
STAH D 
PUSH H 
Maw H.-A 
Mow Ee 
SHLD TEMP DAT SAVE CURREMT LIHE NUMBER 
Por H 
ANA CG 
CFI S77 
SE FINISH IF EWD OF TEXT 
THs H 
SEEELW Mow Apt 
IHX D 
STAN D 
CRE .GOSUE, 
Te LHUNEB 
CPI .Gd0TO. 
Jz LHUNB 
Chr . THEN. 
Je LHUMB 
IHs H 
AHA A 
JHE SEEKLH 
JHE HEX TLIW 
TEESE 
LHUNB THs H FOUND A JUMP TO LINE # 
Mow A.M 
Cr ug “ Pal 
Jé LHUMB SKIP LEADING BLANKS 


™ CH>KUSLG> <SPLOR ERK TOKWIDK ADS ROCKED <U><OR<L> II 


FROGRAM NAME: RENUMBER“MERGE - MOSS < CONT“’D > 


CALL TSDIG 
Jc SEEKLN+1 IF NO NUMBER FOLLOWS 
PUSH D STACK= NEW TEXT-> 
CALL ASCDE DE=BINARY VALUE OF OLD LINE NUMBER 
XTHL STACK=OLD TEXT->. HL=NEW TEXT-> 
PUSH 6 STACK=NEW TEXT-> 
LHLD LNSTART 
SHLD NEWLN 
LHLD LNTABLE 
LNTEST = Ma c.M 
INM H 
Maw EM 
INX H 
Mew A.C: 
a CMP E 
INZ NCMATCH 
Mu A.B 
CMP D 
INZ NOMATCH 
| LHLD NEWLN FOUND A MATCH 
| XCHG DE=NEW LINE # 
POF rT HL-> NEW TEXT 
INS H 
CALL DEASC PUT NEW LINE # IN ASCII AT HL 
XCHG 
PCr H HL-> OLD TEXT. DE-> HEW TEXT 
| DCH D DE MUST POINT TO LAST CHARACTER IN N 
| EW TEXT 
| COMCHEK —NcW ALM CHECK FOR ANOTHER NUNBER AFTER A COM 
MF 
CPI Pia 
JHZ SEEKLN «IF COMMA. LOOK FOR ANCTHER LINE # 
INX D 
| STAN D WRITE COMMA IN NEW TEXT 
| IMF LNUMB 
MEME 
| FINISH INS D 
in 
| 


PROGRAM MANES 


HEE 
HOMATCH 


be Oe oe od 
HEVER 


CALL 


th 

Bas os 4 

oy 
WRITEDE 


BCHG 
MUT 
SHLD 
CALL 
DE 
JMP 


Mow 
RAMA 
CPI 


JZ 


Wk ITEDE 


SCORSESE TOCNOCASLROCED «© UD<OD< 


REHMUMNBER-NERGE —- MOSS 


M.@ 
TEND 
PRINT 


HL=HEl 


Le I7 


< €COHNT“D > 


THEHD 


“REHUMBERIHG COMPLETED” . 2@6Q@ 


COMMAHD 


TIHCLH 
LHTEST 


PRIHT 


IF CAN’ T MATCH AT ALL 


fr. REFERENCE TO HOWEXISTEHT LINE HUMBER: *,. 2460 


PRINT 


WRITE BINARY IH DE AS DECIMAL ON CON 


IH LIME NUMBER”. 2460 


1) 
TEMNPDAT 


WRITEDE 


Db 
CRLF 


COMCHER 


D 
H. IMP'BUF 


HL= CURREHT LINE HUMBER 


HL-? HEW TEXT 


BRACKET ERROHEQUS LINE # IN NEW TEXT 


DE~? 
HL—> 


HEW TEAT 
OLD TERT 


USE IMPBUF FOR TENPORARY STORAGE 


ho 
bs) 


<H2<U><G> <5 


PROGRAM WAME: 


PUSH 
CALL 
“CHG 
POF 
CALL 
Mc) 
CALL 
POF 
RET 

Se 

pa 

INCLH PUSH 
PUSH 


CALL 
DE 
NT AND TRY AGAIN. 
LHI 
MUI 
POP 
IMP 
wn 
etek 
e 
INFNUM = LSI 
PUSH 
MUI 
ERR:MI 


Ly 


CALL 
MIT 
POP 


PROM PRT PRU SSASAROCKES CUPKOSKL> TI 


REMUMBER“MERGE - MOSS < COWT’D > 


H 
DEASC 


H HL=INPBUF 

DNHG DE= DE-HL 

ALE A=LENGTH OF ASCII STRING FOR HUMBER 
WRSTR 

D 


H 
D 
HEWLH 


LNINC 
D 
NEWLN 
D 
H 
RETURN IF NO 16-BIT QUERFLOW 


PRINT 
@,7. “MEW LINE NUMBER > 65535! RELOAD BASIC TE 
“17. 2680 
H, THEND+1 


M,@ FLAG THAT PROGRAM MUST BE RELOADED 

FSW CLEAR STACK 

COMMAND 

H. INPBUF 

H 

E.S LIMIT INPUT TQ 3 CHARACTERS 
IBUFLEN-6 IHPUT BUFFER MUST BE AT LEAST 6 BYTE 

IHPSTR 

Mo” MARK EHD GF HUMBER WITH A NONDIGIT 

H 


bo 
wo 


“HSCUS<G> 


SSPK OOF FAT PAW ESAS ROLES 


PROGRAM HANES 


HUROK 


Maw 
FLOW 


CHECKE 


GUTOF IT 
DE 
@. “REEWTER I° 


oft 

seb 
oa 
THPSTR 


HEXTCHR 


Maw 
Lul 
DAD 
JHE 


SCHG 
Mow 
ORF 
RH2 


CALL 


REHUMBER-MERGE -— MOSS 


HUMOE. 


A, “6° 
M 
CUTOF IT 


PSkl 
ASCDE 
Pol 
CHECKS 


= 
ar 
— 
iy 


Lose 

B, -ShG& 
B 

GUTOF IT 


mo 


PRINT 


Yo INPUT MUST 


2° 7" +2860) 


JME 


TNPHUM 


EB 

PRINT 
“7°. 2480 
C.8 
$RCHAR 
15Q 
STRDOHE 


Sse SeL > LT 


< CONT’D > 


A= # 
OK IF 


EVTES INPUT. E= 5 
<5 BYTES 


ELSE CHECK 1ST DIGIT 


Ho GOOD IF DIGIT >°6° 


HZ= Ck. Z2= MUST CHECK FOR OVERFLOW 
DE= BINARY VALUE 
RESTORE FLAGS 


DIGIT 1S A “6” SO CHECK FOR OQUER 


IF OVERFLOW THEN HL= FROM @ TO 4465 


BE AW INTEGER: 1 


- E F 7 


RUBOUT <BACKSPACE > 


2a 


ee CHOMUSKG> «<< SMOKE TOMWOKADKROCED> «<<U>KOOKL> = TI 


FROGRAM HAME: RENUMBER-MERGE - MOSS < CONT“D > 


CPi mo ie, IGHORE NOW-PRINTED CHARACTERS 
Jc BELL 
Mow B.A B=CHAR 
Mow ALC 
CMP Ss IS STRING TOO LONG? 
ie BELL 
CHROK Mau M.B 
INR Cc 
INX H 
MOU A.B 
We CALL WRCHAR 
JMP HESTCHR 
| ME OK 
m BS DCF C 
JM TOOFAR 
CALL PRIHT 
DE 140.460.2160 
DCH H 
JMF NE TCHR 
Ba a a 
TOOFAR IHF C BACKSPACED TOO FAR 
BELL MUT A.? 
IMF We 
ME EE 
STRDCNE Nav ALC 
POF B 
CALL CRLF 
RET 
a 
Be Obs as 
| oe 
TSDIG CFI ea SEE IF ff IS A ASCII NUMERIC 
RC 
CPI gene EC oi 
Cnc 
RET 
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CHecu><G> 


CSPSOSC FSC TOMWOCASKRESED> = <UGKOO<Le II 


PROGRAM HAMNE: 


Be oe ae od 
ASCDE 


DIGIT 


IGBLE 


LiaI 
Mow 
CALL 
RC 


PUSH 
MCW 
Mow 
DAL 
DAD 
DAD 
DAD 
SUI 
Mcil 
MUI 
DAD 
XCHG 
POP 
INK 
Mow 
CPI 
Jz 


INP 


Mow 
ORA 


JZ 


PUSH 
“CHG 
CALL 
Mow 
CALL 
Ma 
Mow 
MUT 
POP 


REWUNBER-“MERGE - MOSS < CONT“’D > 


ASCII IH HL-> BINARY IH DE 


ioe 
care 


et 


a 
Mot 


K18 


DE= 16 * DE + DIGIT 


IGHORE BLANKS 


BIHAR INTEGER IN DE TO ASCII AT HL 


1a" 


Ww 


& 1° 


ey 


1466°S & 186°5 
1ee@ea~s 


SUPPRESS ZERGES 


fel 
bh 


om CHOCUSKG> <SPK OCP OM TSCWOCAZEROCE? =6<<USKO><L> TE 


PROGRAM WAME: REHUMNBER“MERGE - MOSS < CONT“D > 


CALL DIGZ HIGH TWO 
Maw DLE 
CALL PIG2 MID Two 
Mow D.C 
DIGZ Mow A.D FUT OUT Tha DIGITS TH D 
REC 
RRC 
RRC 
REC 
CALL PUT FIRST LEFT GNE 
MOV A.D 
PUT AHI 15 PUT OUT RIGHT DIGIT IN “A” 
CMF e LEAD a? 
Re IF 50. DOH’T 
ITIS6 MUT E.4& PRIHT ZERCES 
ADD E ASCII OFFSET 
Mow M.A 
THX H 
RET 
be oes oa 
+ 
* CONVERT TWO DECADES 
Bf 
BCD MUT DP. 16 BIT COUNT 
SRA A START AT @ 
CUT DAD H SMart LEFT 
ABC Ai A=24+A+CARRY 
DAA DCG IN DECIMAL 
JHE TST 
INX H BACK INTO HL 
FST DCE D 
JHZ CUT 
RET 
Ed 
sek 
A 
* MERGE ROUTINE TO COMBINE TWO BASIC PROGRANS 
Bs 
MERGE “RA Al A=6 SIGHIFIES “LOAD* TO LODUMP ROUTI 


HE 


=z 
pare 


SHO<U><G> <S<O24F SX TOCWEXASCROCED> <UOCKOOKL> II 


PROGRAM HAME: REMHUMBER-MERGE -— MOSS 


LHLE TREND 
SHLD START2 SAVE OLD FROG! END TEMPORARILY 
INS H 
CALL LODUMP — LOAD PROG2 
AWA A A=@ IF BAD LOAD, A=1 IF GOOD LOAD 
Jz COMMAND EXIT IF THERE IS TAPE ERROR 
Let H: & 
DAD 5 
DCF H HL=1 PAGE UNDER STACK 
SHLD EHD2 =EMHD OF PROGZ 
Mow B.H 
Mois Cob BC-°DESTIHATICON OF BLOCK SHIFT 
LHLD TSEHD HL-SEMD OF PROGZ 
“CHG DE-> si 
LHI H, TASTART 
CALL SHIFTER 
SHLD THEHD HL= THSTART-1 
“CHG 
SHLD START1 =HEW START OF PROG1 
ACHG 
Lil H. TASTART 
CALL DMH1 DE= STARTI-TASTART+1 = # BYTES OF SH 
IFT 
LHLD START2Z HL= CLD PROGRAM END 
DAD D HL= WHEW START OF PROGZ 
SHLD START2 
SURTIT LHLD START2Z 
Mow Cc.M 
IHX H 
Mow Bo BC= CURRENT LINE # OF PROG2Z 
LHLD START 1 
THe H 
Mow A.M 
DCH H 
SUE E SUBTRACT CURREHT LINE # GF PROGI 
JHZ FLAGSET 
MoV A. 
SUE c 
8 ir EQUAL 
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SH>2US<G> 


<S>COSCF SC TOSWOCASCROMES <UECO>KLS II 


FROGRAM HAME: REHUMBER“MERGE - MOSS < CONHT’D > 


FLAGSET 


ae rkok 
EQUAL 


EG@1 


BS OBS os od 
MOL IM 


ML 1 


JHC 


CALL 
SHLD 
IMP 


Ins 
INS 
Mow 
INK 
ANA 
JHE 


SHLD 
LHLD 
CALL 
SHLD 
“CHG 
LHLD 
CALL 
JC 


IMF 


“CHG 
LHLD 
MUT 
IN 
LDAH 
Mow 
IN® 
DCR 
JF 


ANA 
JHZ 


SHLD 
HCHG 
RET 


USE? 


MQULTIH 
START 1 
SORTIT 


START 1 
STARTZ 
MCL IN 
STARTZ 


END2 
DMHa 
SORTIT 


COMMAND 


THEND 
C.2 

H 

D 

M.A 

D 

C 

MLi 


A 
ML1 


THEHMD 


SKIP LINE IH PROG] IF EQUAL LINE #°5 


SUBTRACT EWHD2 FROM START2 
IF MERGE NOT COMPLETE 


MOVES LINE FROM HE TQ TXEND+1 


SKIP LIWHE # “1ST TWao BYTES OF LIHE®> 


GO UNTIL 2ZERG ENMCOUNTERED 


td 
cel 


SHSCUSKGS <S><OSKF OC TOCWSKADARSKE> <€US<KO><L> TI 


PROGRAM HAME: REMUMNBER“NERGE —- MOSS < COHT“D > 


of 
see K 
So 
SII TLE CALL PRIWT 
DE “CURRENT TITLE: “. 2480 
Lil He TLILe 
Na Ah 
PUSH H 
IH H 
PUSH H 
CALL WESTR 
CALL FPRIHT 
DE G.°HEW TITL”».“E"+26G0 
POF H 
MT E.TITLEH 
CALL IMPSTR 
FOF H 
MCU M.A 
JMF COMNMAHD 
Bd 
Be ibs oes od 
a 
QUERY STHL HL=15T ADDR OF LIST 
PUSH D 
Gil MT D.@ 
CALL ERECHAR 
FUSH H SAVE ADDR OF LIST START 
Mow E>A SAVE CHARACTER IMFUT IH E 
CELIST MoV Aah 
AT ivra HASE BIT 7 
CMP E 
Jz MATCH IF LIST MATCHES IMPUT CHARACTER 
Maw A.M 
THR D 
IHX H 
RAL SEE TP BLT ~ IS SET 
JHE CKLIST 
CALL PRINT LIST EXHAUSTED WITHOUT MATCH 
DE Zara BELL 


“He<Us<G> 


PROGRAM N 


oe Oe od 
MATCH 


FINDEHD 


+ 

Ss oe od 

+ 
JIMPTBL 


oe 

Meseok 

* 
ADAHL 


CSICOPKP STOMA ROSE? = <USCORKLO = OMIT 


AME: 


POP 
IMF 


Mow 
CALL 
CALL 
Mow 
RAL 
IN® 
FHC 


Mow 
POP 
POP 
NTHL 
RET 


H 
1 


AsE 
$WCHAR 
CRLF 
A.M 


H 
FINDEHD 


A.D 
BD 
D 


BIIMsD 
oT 


REMUMBER-“MERGE - MOSS < CONT’D > 


ECHO IHFUT CHARACTER 


FIND END OF LIST TO SET RETURN 


CLEAR STACK 


JUMP TABLE ROUTIHE 


A=A«2 


ADDS A TO HL 


td 
“J 


PROGRAM 


BS 
PRIHT THE 
WS CALL 


PRHT1 


aK 

be ae oi of 

+ 
WRCHAR 


AME: 


PUSH 
Mow 
IHX 
CALL 
AHA 
JF 


POP 
XTHL 
RET 


PUSH 
AHI 
AHA 
Ce 


MT 
Mew 
INS 
CMF 
CNC 
POF 


REMHUMBER<“MERGE 


CONSOLE STRING PRINTER ‘¢STRIWNG FOLLO 


PSW 
Ah 

H 
WRCHAR 
A 
PRHT 1 


PSU 


PSW 
irr 

A 

CRLF 
$WCHAR 
H 

H, COLHG 
M 


PORASED <NSCOSKL> Tf 


- MOSS < CONT“D > 


IF MORE Ta COME 


WRITES A CHARACTER TQ CONSOLE 


@=CR“LF CHARACTER 


“SPACE“ 


HONPRINTED CHARACTER 
“BACKSPACE’” 


“CR? 


HEW LIME: SET CURSOR TO & 
HL=CONSOLE MAX WIDTH ADDR 


CR-LF IF LINE TOO LONG 


ta 
on 


SHO<U><G? 


FROGRAM HANE: 


eek 
* 


LODUMP SHLD 


LHI 
SHLD 
LHI 
DAD 
SHLD 


<5? 


RENUMBER“MERGE - MOSS < CONT’D > 


PRINT 
1S@.2120 CR & LF 


TENFDAT LOAD“DUMNP ROUTINE TQ MAGNETIC TAPE 
H, TPHRIT 


SP 


TPHIT+1 SAVE CURREHT STACK POINTER FOR ERROR 


PRIHT 

“TURH ON THE TAFE RECORDER FOR TAPE”. 2460 
A IF A=@ THEN LOAD. ELSE DUMP 
DUMP 

PRINT LOAD ROUTINE 

“LOADING”. 2880 

H,-24256 COMPLEMENT OF &@2. 680 
LODREC 

H. TITLE 

ME STORE LENGTH OF TITLE 

H 

LOAI LOAD TITLE 

PRINT 

“FOUND” . 2480 

Ha TITLE 

A.M 

H 

WRSTR 

CRLF 


H,. 16680-2620+256-1 COMPLENENT OF 202.601 
LODREC 
TEMPDAT 


SHSLUS< Gs 


PROGRAM HARE: 


Te SEE 
LOAL 


TPRIT 


CALL 
PCH 
SHLD 
MIT 
RET 


CALL 


DCH 
Mow! 
ORAL 
JHE 


SCHG 
CREEL 
LHLD 
cw 


PUSH 
Mo 
THs 
CALL 


PROSCK OR TOWEM ASK ROSES <U>KO>KL> II 


REHUMBER-MERGE -— MOSS < COHT’D > 


LORI LOAD BASIC TEX 

H 

THEHD SAVE ADDRESS OF END OF BASIC TEXT 
A. i A=1 MEANS GOOD LOAD 


ABUSS DISPLAY COUNT OH FPLEDS 


D 
A.D 
= 
LOAL 


DE=LAST MEMORY ADDRESS + 1 
RHP CHECK CRCSUM 
CRECSUM 
AH 
Lo 


TOT IF CRC OK, THEN TURN OFF TAFE 


FRIWT 

“CHECKSUM”. 2480 

SP. 8 SET RETURH TQ CALL OF LODUMP ROUTINE 
PRIHT 

“ERROR! “. 7. 26@0! 

TOT 


Fi FRIHTS A BYTES STARTING AT HL 


FSU 
ALM 

H 
WRECHAR 


4a 


SHOCUS<G> <SOKOSCF SM TOCWOKADCROCE> <<U>KO><L> II 


FROGRAM WAME: RENUMBER-NERGE - MOSS < COWT’D > 


FOF FSW 
DCR Ai 
IMP WRSTR 
ss 
Medes 
i 
LODREC PUSH H STACK=COMP OF EXPECTED TYPE. RECORD 
CALL SRS 
Mow L.A 
aTHL HL=COMP. STACK=COUNT 
DAD oD DE=TYFE. RECORD 
Maw A.wH 
ORF L 
POP D DE= BYTE COUNT 
Re RETURN IF NO TYPE OR SEQUENCE ERROR 
a 
CALL PRINT 
DE “TYPE CR SEQUENMHCE” . 2460 
IMP TPXIT 
Bey 
Ba 
oK 
DLUMF PUSH D 
CALL PRIWT 
DE “DUMP IHG”. 2680 
LHI H, TITLE 
MW E.M 
MT D. & DE=BYTE COUNT OF TITLE 
IHk H HL=TITLE ADDR 
LHI Bs 2#256 BC=TVPE. RECORD 
CALL WRREC 
LHLD TENPDAT HL=5TART ADDR FOR DUMP 
FOF p DE=EHD ADDR FOR DUMP 
CALL CMH 1 
List (, 262661A BC=TYPE. RECORD 
CALL WRREC 
RET 
Bo 
HEA 
oe 
a DAHA THe D ROUTINE: DE = “DE-HLo+1 
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SHASUPKG> <SOKOUSCF OK TSRWSSASSROSCE> <UPCKOOKLD FI 


PROGRAM HANE: RENUMBER-NERGE - MOSS < CONT’D > 


DPHE howd ALE ROUTINE: DE= DE-HL 
SUE L 
Mc E.A 
Maw A.D 
SBE H 
Maw ve 
RET 
aK 
shook 
od 
WRREEC PUSH H 
MT Ais 
OUT orl SET UP TAPE CONTROL 
MUT As 26a ema al 
THT L. 3a 
WREL CALL WHE WRITE 38 SYM CHARACTERS 
DCE L. 
IHS WR 1 


MUT A,2 “STR? 

CALL WHE 

Maw Heb HL=@ 

SHLD CRCSUM CLEAR CRCSUM 

Maw H.& H=T'YVFE 

Maw L.C L=SEQUEHCE # 

CALL WHF 

Por H HL=STAHET ADDR 

ACHG HL=COUNT TO BE WRITTEN 


WEES Mc Fil 


CHG 
SHLD ABUSS DISPLAY COUNT ON FRONT PANEL 
“CHG 
Ins H 
Dox DP 
Now A.D 
ORA E 
JHZ WR 


f SHOUPKGS> §6<S><COSKFO<TOCWSKASKROXE? <<USK0O34L> = 611 


PROGRAM HANE: REHUMBER“MERGE — MOSS < CONT’D > 


LHLD CRCSUM 
CALL WHP 
MUT A. 68-2 TIME DELAY GF 6@ MSEC 
CALL DL’ 
TOT ARAl Ai TURH OFF TAPE 
OUT SF 1 
RET 
aK 
SRO desde ek 
HE 
* WORK SPACE DEFINITIONS 
* SHOULD FOLLOW END GF PROGRAM AND BEFORE BASIC TEXT DATA 
Bs 
TREND Du & => EMD OF BHSIC TEXT 
TEMPDAT EQU # NEXT 1@ BYTES ARE VYARIABLY USED IN T 


OVE PROGRAM 


TEMPST DS 2 
LNSTART DS fe 
LHIHC DS 2 
HEWLM DS iz 
LHTABLE DS Zz LIWE NUMBER TABLE START 
TITLE DS TITLEN+1 1ST BYTE=LENGTH OF TITLE STRING TC F 
CLLOW 
THPBUF DS IBUFLEH IMPUT STRING BUFFER 
oe 
ae 
* ALTERHMATE VARIABLE WANES FOR THE MERGE ROUTINE 
START 1 Etiu TEMPDAT+2 
START2 Ett TEMPDAT +4 
END2 Eau TENPDAT +6 
Bo 
HES Ok 
Kd 
TSSTART EGU * MARES BEGIHHIHG OF BASIC TEXT 
+t 
bt OMS oot Ot os oe OB oe oe 
bo 
EME B41 BGA START AT JUNP FROM HEATH DRIVER 
| -o 
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SHUSSG> <SPCOPKP OCT WKAR OES SUSCORKLS 6T 


PROGRAM NAMES UTILITY ROUTIHES — PRICE 


TILE | * ASSEMBLY LAHGUAGE UTILITY ROUTIHES” 
STL “ASSEMBLY COHTROL COMSTAHTS* 
* GEMHERAL HS ASSEMEL'Y LANGUAGE UTILITY ROUTINES 
*# WRITTEM: Fels PRICE 
4 DATE: AUGUST 197o 
* FEATURES: 
* ENTRY THELE STAHDARRD UTILITY ENTER’ POINTS 
4 SELECTIVE ASSEMBLY 
# MAY’ BE ASSEMBLED SEPRRATEL'’ FROM CALLING “MAINS F 
QUT INE 
# RUM ALOHE {CRG 46166F> OF WITH HBUG {ORG SSeeaAD 
+ 
# FUNCTIONS: 
* COMSOLE DR TER $RICHAF. SUCHAR. $PRSCL 
* COWMSOLE OQUTFUT . TYRE. . 16F 
* STRING COMPAR T SOM .SCAH. . CHRAR 
# BLOCK MOWE AMNQWEL. .ACWIDE. .FILL 
* TABLE LOOKUP ~L GRILLE. «LORE. .LOKGE. . 
LOKL 
+ DEBUGGING SUPFORT »ERMES. . TRACE 
od TAPE IMPUT<- »~LOPEH. .LREAD. .LCLOSE 
a OUTPUT »-DOFEN. .DWRITE, .DCLOS 
E 
* INTEGER ARITHMETIC »~ADD4. . SUB. . LOADS. JC 
LEAR. 
+ .STORE4. .HEG+. . WEG 
i ASCII-BIHARY CONMWERSS TOM . COMA. .COH4R. . SFTLA 
a 


ORG 4@1 GGA 


so 

#UTILITY ROUTINES 

* 

SELECTIVE ASSEMBLY COHTROL COMSTANTS—-—— 

HE FROVIDE SELECTIVE COMTROL OF ROUTINMES IM PACKAGE 

WHICH ARE ASSEMBLED 

# f=] -- ROUTIHE ASSEMBLED 

te f=6 —- ROUTIHES HOT ASSEMBLED UNLESS 
REGUIRED BY AMOTHER ROLITIHES> 

K 

»~UTILTY EQU e 

A.ARIT4 EG i 


<H><US<G> 8 <S><O>< F< TOCWOKASCROCED> <<U><KOSKL> TT 


PROGRAM NAME: UTILITY ROUTIHES — PRICE < CONT“D > 


A.CONA4S EU 1 


A.CON4A EGU 1 
IF L-UTILTY-SS@GaA 
A.COMSL EGLI a 
ELSE 
A.CONSL EGU aT 
EMDIF 
A.CMFAR EG 1 
A.DOPEHM EGU I 
A.DWRIT EG 1 
A.DCLOS EGU 1 
A.DTAFE Eu 1 
ALP PL EGU 1 
A.LOKUP EGU 1 
A.LCLOS EGU 1 
A.LOPEH EQUI 1 
A.LREAD EGU 1 
A.LTAPFE EQUI 1 
A.MOUDB EOL 1 
A.MOUEBL EGL 1 
A. SCAM EGU 1 
A.SFTL4A EGU 1 
A. TYPE Ettl 1 
A. TRACE EQUI 1 
a 
She “LTAPE AWD DTAPE PARAMETERS. UTILITY ENTRY POINTS 
EJECT 
4 HOTE--LTAPE-DTAFE PARAMETERS MUST BE FPRESEMT TO IHSURE C 
— POSITIONING 
OF ENTER’ POINTS - FORMAT CAH HOT BE CHAHGED 
WETHOUT ALTERING CALLS IH MAI 
TITLE = ASSEMBL'’ LAMGUAGE UTILITY’ ROUTIHES” 
Sil “RESENBL’Y CONTROL COMSTAHTS” 
BO GEHERAL HS ASSENBL'Y LAHGUAGE UTILITY ROUTIHES 
WRITTEM: fete eee 
# DATE: AUGUST iss 
Ba FEATURES: 
* EMTRY THRU STAHDARD UTILITY ENTRY’ POINTS 
ie SELECTIVE ASSEMBLY 
bd NAY’ BE ASSEMBLED SEPARATELY’ FROM CALLING «<MAIHS F& 
GUTINE 


SHO<US<G> 8 <S>KOFCF OK TOW ASK ROC E> 6<USKOR4L> ITI 


PROGRAM NAMES UTILITY ROUTIHES -— PRICE 


* RUM ALONE “ORG 46180R> OR WITH HEUG (ORG SSheGAD 
* 

* FUHCT IONS s 

Ba CONSOLE DRIWER FRCHAR. FWUCHAR. $PRSCL 
* CONSOLE OUTPUT « P¥PEs . FOP 

* STRIHG COMPARISOrM . SCA. . CPA 

* BLOCK MOWE ~MQUBL . .NQUDE. .FILL 

* TABLE LOOKUP -LOELE. .LOKEs..LOKRGE > . 
LOKL 

4 DEBUGGING SUPPORT »~ERMES. . TRACE 

uk TAPE INPUT »LORFEH. .~LEEAD. .LOLOSE 
xe OUTPUT -DOPEHM. .GWRITE. .DCLOS 
E 

Bs INTEGER ARITHMETIC »~HDD-+4}. . SUE.  LOADA. .C 
LEAF. 

Bi »~STORE4. .HEG+4. .HEG4I 
ow ASCII-BIHAR’’ COMWERS TOM . COMA. . COHS4A. . SFETL4 
a 


ORG 40106R 
SS 


*UTILITyY ROUTINES 
te 
* SELECTIVE ASSEMBL'Y CONTROL COMSTANTS-—— 
* PROVIDE SELECTIVE COHTROL OF ROUTINES IW PACKAGE 
WHICH ARE ASSEMBLED 
# R=1 —- ROUTINE ASSEMBLED > 
# f=@ -—- ROUTIHES HOT ASSEMBLED UNLESS 
REQUIRED BY AMOTHER ROUTINES. 
Ba 
»-UTILTY EQU * 
A.ARITS EU 1 
A.COHA4 EG 1 
A.COHWSA EQ 1 
IF »UTILTY-S5 088A 
A.COHWSL Eau 8 
ELSE 
A.COHSL EG i 
EMDIF 
A.CMPAR EG 1 
A.DOFEM ECHL 1 
A.DWRIT Ett 1 
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CH><US<G> £S>< O24 F 26 TOC WIS ADK ROSE? qVUSKOFKL> 1 


PROGRAM NAME: UTILITY ROUTINES —- PRICE < COHT’D > 


A.DCLOS EQuU 1 
A.DTAPE EGU 1 
A.FILL Eau 1 
A.LOKUP EQu 1 
A.LCLOS EGIL 1 
A.LOPEN EQUI 1 
A.LREAD EGU i 
A.LTAPE EQU 1 
A.MOVDE EQU 1 
A.MOVBL  EQU 1 
A.SCAN EG 1 
A.SFTL4 EQ 1 
A.TYPE EQU 1 
A. TRACE EGU 1 
* 
STL “LTAPE AND DTAPE PARAMETERS. UTILITY ENTRY POIHTS 
EJECT 
x NOTE--LTAPE’DTAPE PARAMETERS MUST BE PRESENT TO INSURE C 
ORRECT POSITIONING 
* OF ENTRY POINTS - FORMAT CAM HCT BE CHANGED 
WITHOUT ALTERING CALLS IN MAIN 
* 
Mw 
* ~LTAPE PARANTERRS 
* 
-LOPEHF Du! 28D INPUT FILE LABEL CHARACTER MATCH COU 
NT <<=20) 
DS 260) FILE LABEL 
.LOPEHT DB G110 COMPRESSED TEXT “@@3> OR BLOCKED VAR 
IABLE LENGTH FILES @11> 
-LOPEHR Du GF INPUT RECORD AREA -- INCLUDING LENGT 
H IN FIRST 2 BYTES 
-LOPENE Du GA ADDRESS OF END OF FILE ROUTINE 
/LOPEMW = Db! GF ADDRESS OF INPUT WORK AREA -- INCLUD 


ING LENGTH IN FIRST 2 BYTES 
4 


Me .DTAPE PARAMETERS 
*K 
»~DOPEHF Dil BaD 
=665 
oS 6a 


GUTPUT FILE LABEL CHARACTER COUNT «< 


FILE LABEL 


CHOMUSCG> <SecORF SCT SWC Re ES> 4K OR LS 6 


PROGRAM WAMES UTILITY ROUTIMES - PRICE = COHT’D 


-DOPEHR Dl BIA GUTPUT RECORD ADDRESS ~~ INCLUDING L 
ENGTH IM FIRST 2 BYTES 
-DOPEHT DE Biig COMPRESSED TEST «E39 OR BLOCKED VAR 
TABLE LENGTH “@ili> FILES 
-DOPEML Dut BA OFDDRESS OF OUTPUT WORK AREA 
»-DOPEHML Du GF MAM LEMGTH OF OUTPUT BLOCK 
So 
te HOTE LTAPE-DIAPE PARAMETERS AMD UTILITY ENTRY POINTS M 
UST MATCH CALLING SEQUENCE IM 
# MAI PROGRAM EXACTLY 
So 
JF $RCHAR 
JMF SWICHAP: +3 
JMF SP RSCL +& 
JIMP £CSIHMT +9 
JMP » CMPAR +12 
JMF -ERMES iS 
JMF »F ILL +15 
IMP »LOKLE +21 
JIMP PY EE | +24 
JMF » LOR GE +27 
JMF »LORKL +36) 
JMF »MOWUEL +33 
JMP - MOWDE +36 
IMP . SCAM +39 
IMF » TYPE +42 
JMF . TOP +45 
JMF - DOPEN +45 
JMF -DWRITE +31 
IMP »DWRITS +54 
JF » DCLOSE +37 
IMP .» LOPEH 
JIMF . LREAD 
JIMF: »LCLOSE 
JMF » ADD} 
JF » SUE 
IMP » LOAD 
JMP - STORE4 
JMP . CLEAR4 
JMF » HEG4 
JF » NEG 


teettetegtet 
Co Oo mt my mp my ty os ty he 
“Je CO Cb oh oy 


SHO<USKG> <S><0 


PROGRAM NAME: 


POPS TOWOSASAROCES =6<U>< ORL 


Il 


UTILITY ROUTIHES — PRICE < CONT’D > 


JMF » SFTL4 +38 

JMP . COMA +93 

JIMF . COH4AA +36, 

JIMPF » TRACE +39 

iF A. COMSL.+A. DTAPET+A. LTAPE 
Sd PAMS CONSTANTS HOT ASSEMBLED 

Se 

STt. “PANS COMSTANTS” 

EJECT 
* 
# COHSOLE DRIVER ROUTINE 
* 
BELL EQU Bard 
»UIVEC EQu B42 °A 
# USART BIT DEFINITIONS 
UMNI.1E EQuU G1 SeeeaaEr 1 STOP BIT 
* UMI.HE EGU LEBeRGGGE Lif 2 Stor Bilis 
* UNIT. 26 EGU LI Geeeeee 2 STGP BITS 
* LUMI. PE EGU 861 BEBE EVEM PARITY 
* UMI.PA EGU BGG] GEIGE USE FARITY 
* UMI.LS EGU BEGGERGGE S BIT CHARACTERS 
* UMI.L6E EC BEBE 1 AGE 6 GIT CHARACTERS 
* UMI.L? EQU GGG 1 BEG5 Y BIT CHARACTERS 
UMNI.LS EQU 680011868 8 BIT CHARACTERS 
% UMI. 1X EQu BOGE 1 E CLOCK #1 
UMI.16% EGU BEGGGE 1 GE CLOCK ~ 16 
* UMI.64% EGU BEGGHG1 16 CLOCK HM G4 
* COMMAHD IHSTRUCTICON BITS 
UCI. IF EC 61 GGRGaaE THTERHAL RESET 
UMNI.RC EGIL GG 1 GBGGE READER CH CONTROL 
UCT.ER EGU GGG BEBE ERROR RESET 
UCT. RE EG GEGGE 1 CHE: RECEIWE EMABLE 
UCT. IE EQU SEGGES 1 GE ENABLE INTERRUPTS 
UCI.TE EGiL BGGREHe1 E TRANSMIT EMABLE 
* STATUS READ COMMAHD BITS 
* USF. FE EGiul BGT AGREE FRAMNIHG ERP 
* USF. OF ECHt BEG 1 GRE QUERRUM ERR 
* USF. PE EG BGGA 1 GAGE PARITY ERRCR 
USE. THE EGU BEGHE 1 BE TEAHSMITTER EMF TY 
USR.RMR EGU BEEHES | GE RECEIVER READ’ 
USR.THR EGU GGG 1E TEAHSMITTER READY 


SH>MURKG> <S>MO2CF MM TKMUDSAC ROSE? <UOCOREL> TI 


PROGRAM HAME: UTILITY ROUTIHES - PRICE <= COHT“D > 


* 

Kk 

# 1.0 PORT ADDRESSES 

BS 

BS area ee Be Er SFP20 COMSOLE DATA IM PORT 
UP. CDF EQuU or2a COMSOLE DATA OUT FORT 


iP.cis EQU SYS COMSOLE INPUT STATUS IM PORT 
OF.CIS EGU or°sQ CONSOLETHPUT STATUS OUT PORT 
IP.CoOS Eu o’st CONSOLE OUTPUT STATUS IH PORT 


OF. COS EGitl SP3Q COMSOLE OUTPUT STATUS QUT FORT 
Ed 

OP. TDP EGH 3f@Q TAPE DATA QUT PORT 

IP. TDP EQuU 3°80 TAPE DATA QUT PORT 


iF. TSP EG sriG@? TAPE STATUS Ii! PORT 
OF. TSP EGU! S7iQ@ TRPE STHTUS GUT PORT 


* SCSLCTL CONSOLE COWHTROL FLAG BITS 
CC.HLD EG a1 SUSPEND OUTPUT 


CC. DMP EG a2 DISCARD OUTFLT 
CC.CTLA EGU Sie CTL-A 


CC.CTLB EGU B26 CTL-B 

CC.CTLCG EU ase CTL-C 

CC.CTLD EQUI 1960: CTL-D 

on 

* FORT ROUTIHES 

oH 

$SCDIN It iP CDr COHSOLE DATA IN 

#PET RET 

FCDQUT QUT OP. CDP COMSCLE DATA CLIT 
FET 

$C ISI It IF.CIS COMHSOALE IHMPUT STATUS IW 
RET 

$C Iso CUT OF .CiIsS COMSOLE INPUT STAUS OUT 
RET 

FCOSI Itd IP.cas COMSOLE QUTPUT STATUS It 
RET 

FC0s0 OUT OP. COS COMSOLE OUTPUT STATUS GUT 
FET 

FTDIH It IP. TDP TAFE DATA IW 
RET 

FTOGUT CHIT OP. TOP TAPE DATA OUT 
RET 


CH><U><G> 


RS>C OOK F oC TSRW SAS KROSS E> =< Oe L 


Il 


PROGRAM NAME: UTILITY ROUTINES - PRICE < COHT“D > 


$RCHAR 
FUCHAR 
SPRSCL. 
DLED RY 
SCSINT 


et 


$IHBUF 
$INBUFL 
Bd 


+ 
Bd 


IH IP. TSP TAPE STATUS In 
RET 
OUT OP. TSF TAPE STATUS OUT 
RET 


MISC PAMS CONSTANTS 


CONTROL. CHARACTER TABLE 


a 


EGu a4ga27 

EQU GG2172A 

EGQu BEGGS3A 

ECiul BG2331A 

EQu GG2265F 

EGU aZeEc 

EG Baz! 

EQU Be2 205A 

EGU GGSG24F 

EQu G@G301 7A 

ENDIF 

IF »~UTILTY-SSe@aar 

USE DEBUG UTILITIES 

EGu 48144 

EG 46147A 

RET SKIF CALL Ta INITIALIZE PORTS 
DEBUG 

EGU 410438 

EMWDIF 

IF A. COMSL 

COHMSOLE DRIVER HOT ASSEMBLED 

ELSE 

STL. “CONSOLE DRIWER* 

EJECT 

DATA AMD BUFFERS 

DE: a IHFUT BUFFER COUNT 
Ds a) 

EQuU #—-$ THBUP-2 MAS LEMGTH OF BUFFER 


1 


—— Fir 


PROGRAM MANE: 


$CSIB 


OSS PR Poneto e ALS OTT 


UTILITIES - PRICE < CONT<p 


CHAR. MASE WALUE 


BEIM, SY PO. BRA 
Blu. daPi. 218m 
B20. Lari. 22 
Stl. Lara. 2 
Bi GPP, Se 
17Q. TF FE, 
2A. Pa & 
ZIM. 1 Patt, 
xo, LPEG. BE 


Sao ox 
i ryid 


rc 
I 


t 
COO Zo fe 


! 


Tavigiery. 


4-4 4444 4-H 


rte] po 
a ae 
me fe 
t 
Ste i ea rte 
i | 
ed 


ea 

bade 

=, 
i 


{ 


Rab fat f 
SI te Oy 
= 


= 
pee 
oat 


i 


i 
im “Oo 


$ 
Bo as Eat Sa a 


i 
sat 
Tt 
a 
rf 
m 


m 


#* $CSIC--ADDRESS OF INTERRUPT TIME CONTROL CHARACTER PROCE 


SOR 
% 
$CSiIcC Dou! 
ROUGH CTL-D 
$CSLCTL 


Hh 
+ 
f: 
+ 

od 

sd 

Me 
#RCHAF 


RCHAR 1 


FRE 


DE 


SEF 
ERFH2 


EJECT 
RE CHAR: 


EMT RY 
Se 


USES 


PUSH 
Lil 
Mau 
AHA 
JZ 
BI 
PLUSH 
DCR 
hci 
IMe 
hi 
CPI 


T 


oh 


ADDRESS OF USER ROUTINE FOR CTL-A TH 


a COMSOLE CONTROL BYTE 


ELHBUP- LAGaA 


“18GeA-. 


READ A SIWGLE CHARAGTER 


HOHE 
CA? = CHAR WITH PARITY BIT CLEANED 
A.F 


H SAME CLO 

H. $I HEUF CHLI=ACDRESS OF CHARACTER POINTER 

Fe i CASS COUNTER 

A 

FRCHAF 1 WAIT FOR INTERRUPT TO READ CHARACTER 
THTERLOACE SEGUEHCE 


rH DECRENEWT COWHT 
0. CDISCOunT 1 


ifvse oe. har 


SCSI 
ROM 


a 


PROGRAM HAME: 


$RCHARA 
FECL. S 
tRCHARZ 


$RCHARS 


&£EeeE EE 


FWUCHAR. 
SWCHAR 1 


* 
DCR 


ae J 
_ 


{S250 24F 24 Tonle <A> 


SWICHAR 


ENTR'’ 
EXIT 
USES 
PUSH 
LDA 
ERRNZ 
RAF 
Jc 
RAF 
ERRHZ 
JHC 
POP 
RET 


QUERFLOW TYFE-AHEAD 


M4 


MUT 
PUSH 


UTILITIES 


$RC1.5 
i4ig 
#kRC1.5 
460 

ef 

PS 

D 
$RCHARS 
H 

Ash 

H 

M.A 

H 
FRCHARS 


om RL Te 


SRR 


~ PRICE < CONT‘D : 


IS HOT LOWER CASE 
MAKE UPPER CASE 
ZERQED FOR LOWER CASE 
SAVE IT 
MOWE CTHERS 
Nt MORE 


DC 


TH GUEUE 


RESTORE INTERRUPTS 


SIHGLE CHARACTER 


(A2=CHARACTER 


HOME 
HOME 
Poh 
$CSLCTL 
COOKED —t 


FUICHAR 1 
CO. OMP-2 


EWCHARS 
Psd 


A. BELL 
Pall 


SAWE CHARACTER 
CHECK COHTROL 


AM To WALT 


AM TO PRIWT 
CLT-G@ IM EFFECT, DISCARD CHAR 


BUFFER . 
REMOVE LAST 


ECHO BELL 
CHARACTER THPUT TO MARE 


ot 


re 


PROGRAM HAME: 


# 
$WCHARZ 


+ 


$PRSCL 


FCSIHT 


Hil. eS ~ PRICE = CONT Om <3 


TYPE CHARACTER 


CALL 
ERRN 
RAF: 
IHC: 
POP 
IMF 
EJECT 
$PRSCL 


ENTRY’ 
EXIT 
USES 
MT 
CALL 
CALL 
MUT 
CALL 
CALL 
MUT 
CALL 
CALL 
HRA 
STA 
MUT 
STA 
LHI 
SHLD 
MAT 
JF 
EJECT 
SCS THT 


ENTE}! 
EXIT 
USES 
PUSH 
PUSH 
CALL. 
AT 
CH2 


FCOS1 
USR. TAR=1 


SWCHARS WAIT FOR ROOM 
FSi 
ECDOUT OUTPUT AMD EXIT 


PRESET COHSOLE DRIVERS 


HOHE 

HOHE 

AF 

Ai. 2610 

$C1Is0 GUARAR ER OUT OF MODE-SET 
£TSOUT 

A. UCTI.IR 

$CIsa 

£TSOUT FORCE INTO MODE-SET 
ALUMNI. LB+UMI.LE+UMIT. 6s 

$Cisc 

$TSOUT 

A 

$1THBUF 

A. S630 SET UF INTERRUPT VECTOR 
HIME CHS 

H. #CSINT 

»UIVEC+? 

ALWCT LC ERTUCT REtTHCT. TEtUCT. Te 

$C1IS0 EMABLE COHSCLE OUTPUT 


COMSCLE THTERRUPT PROCESSOR 


HOHE 

EI AWD RET 

HOWE 

H 

Fuskd 

22 Coes 

WSR. RS 

#C311 TF HAWE DATA FROM DHPUT 


<HosuSsG> «SOS OSCE PST PAU ROC Ree? CUKOSKL > 6 


PROGRAM WAMES UTILITIES —- PRICE < COWT’D > 


$CSIk POP Feld 


PUP =H 
EI 
RET 
HAVE DATA INPUT INTERRUPT--SEE IF ROOM IN QUEUE 


$CSI1i LHI H. $THBUPF 
MUT A. FINBUFL 
CMF M 
cc $CSIz2 Ho ROOM 


# ADD CHARACTER TO GUELIE 
$CSI3. INR 
NOW ALM 
ADD OL 
Mov LA (HLO=ADDRESS OF CHARACTER 
CALL  $CDIN INFUT CHARACTER 
ANI «1778 TRIM IT 
MOU M.A 
Se CHECK FOR SPECIAL CONTROL CHARACTERS 
il 
RNC: NOT CONTROL CHARACTER: 
# HAVE CONTROL CHARACTER 


MUT Ls ##CSIB-2 
$CSI5 THs H 


ING H 

CMF M COMPARE TO CHARACTER 
RC IS WOT IH LIST 

IN H 

JHE $CS15 IS HOT THIS OHE 

LDA $CSLCTL 

AWA M CLEAR #CSLCTL BITS 
IH® H 

aRA NH SE. SCTLCTL SITS 


PUS. Pld 


MT L. #4 THBUF 

DCR M4 DPECREMNENT CHARACTER FROM BUFFER 

POP PSu! 

RF RETRUM IF HOT CTL-A THRU CTL-D 
Bo HAVE SPECIAL COWMTROL CHAR--CALL USER 

LHLD $CSIC 

PCHL CALL USER ROUTIHE 


CH><U><G> 


PROGRAM 


~CMFAE 
+ 


= i 


+, CMPAR 


f 


. CMPAR 


. CNPARL 


oP ILL. 


Me 
*. FILL 
a 

LAD 


HS PCOSCP SRT OCW SAO RES CLS |6OT 


NAMES UTILITIES — PRICE < COHT"D + 


EMDIF 

LF A. CMPAR+A,. LOPE 
EGtu »ERMES 

CMPAR HOT ASSEMBLED 
STL * CHPAR 


STL “CMPAR? 
EJECT 


COMPARE 2 CHARACTER STRINGS 


CDE® = ADDRESS OF FIRST STRIWG 

THL® =ADDRESS OF SECOHD STRING 

“BO = HUMBER OF CHARACTERS TO COMPARE 
IHF B 

AHA A CLEAR CAREY FLAG 
DCR Ei 

Re STRING FIHISHED -- MATCH 
LDA D LOAD FIRST STRING 
CMF M COMPARE TO SECOMD STRING © D-H: 
M2 HO MATCH 

THe D 

INA H 

AHP » CHAR I 

EMDIF 

iF AHePTie 

Etitl »ERMES 

FILL HOT ASSEMBLED 

STE ai ae ta eg 

EJECT 

ELSE 

STL ai ce 4 

EJECT 


MOVE FILL CHARACTERS INTO RECEIUIHG AREA 
= NUMBER OF FILL CHREACTERS TO MOVE TO RECEINIHG ARE 


CB) = FILL CHARACTER 
CHL = RECEIVING AREA 


a 


RHoCUs<G> 


CSO MT IM SCADE RED  <UECODS 


PROGRAM MAME? UTILITIES - PRICE < COWT’D > 


»LOKLE 
» LOKE 
» LOKGE 
» LOKL 
* 


. LOKUPF 


+ 
*, LOKLE 
«LOKLE 


Mew MoE 
IH H 
JMF sPILLi 


Le A. LOKUP 
EGU »-ERMES 
Ett »~ERMES 
EG@Uu »ERNES 
EGH »-ERHMES 


TABLE LOOKUP HOT ASENBLED 


ELSE 
STL “LOKUP’ 
EJECT 


LOCK UF ARGUMNEMT OM TABLE 


ENTRY 


CA=HUMNBER OF ARGUMENTS 
CB2=LEHGTH OF ARGUMENT 
CCO=LENGTH GF ARGUMEHT + RESULT 
CDE.=ADDRESS OF SEARCH ARGUMENT 
CHLO=ADDRESS OF TABLE 


EXIT 


CAS=INDEX OF MATCH ARG © 34 


HO MATCH «=> 
CB UNCHAHGED 
fC) UNCHAHGED 
{DES UNCHAHGED 


CHLO=ADDRESS OF RESULT CIF ANY 
LOCK UP LESS THAW OF EQUAL 


PUSH Pot 


MYT A. S120 
STA »«LOERLIPC 
MT A. S20 
STA ALURUPE 
MUT AL SPT’ 


JC —- JUPF BORROW 


SET Pate FLAGS 


i 2 


P13) 


PROGRAM MHAME: 


+, LOKE 
»~LOKE 


*, LOKGE 
»~LOKGE 


#*, LORL 
«LOKL 


ME 
*, LORUP 
. LOKUF 


oe 
» LORUPF I 


»LOKRUPC 


STA 
IMF 
LOOK 
PUSH 
MUT 
STF 
STA 
PT 
STA 
IMF 
LOGE 
FUSH 
MT 
STA 
STA 
MUT 
STA 
IMF 
LOWE 
PUSH 
MT 
STA 
STA 
MT 
STA 
JHP 


MATH 


POF 
THR. 


UF GREATER 


» LOKUP +1 
LOR LIP 


UF EQUAL 


Pisld 

A. S120 

» LORUPC 
~LOKRUPC+3 
Al. Ged & 

» LOKRUPZ+1 
» LOKUP 


Pld 

As S220 

» LOU 
»LOEUPC+3 
A, Seo 
»LOKUP 2+] 
» LORUP 


UP LESS THA 


Psu 

A. S328 

» LORUPIC 
»LOKUPC+3 
A. Sr ru 

» LOKRUP i+ 1 
» LORUP 


Pst 


H 


COMPARTSOM LOOP 


DCR 
JZ 
PLUSH 
PUSH 
PUSH 
PUSH 
CALL 
JE 
JE 


A 
»LORUPS 
B 
D 

H 

Po 
.CHPAR 
»~LOKUPS 
»~LOKUPS 


UTILITIES = PRICE 4 COMT"D 


Je 


SE. HE FLAG 


OR ECMIRL. 


JHC -- JUNE HO BORRGMW 


SET M FLAG 


JC -- JUNF BORROW 


SET FPF FLAG 


FROCESSING ROUTINE FOR TABLE LOGQKUP SUBROUTINES 


SEARCH TABLE ARGUMENT 
FIRST TEST COHDITICN 
SECGHD TEST CONDITION 


SH><U><G> 


<S>CO2KFCTOCWIOSADCROMED CUKUSLE 1d 


PROGRAM NAMES UTILITIES - PRICE < COHT’D = 


* HO MATCH VET 
FOP PSkt 
MUT B. BGC ZERO B OF “BC? PAIR 
POF H 
DAD E INCREMEHT TABLE ADDRESS 
Por D 
POP B 
JIMF »LOKUP 1 
* HQ MATCH ~-- ARGUMEHTS EXHAUSTED 
»-LOKUP2 CPI HG 1 SET RETURH COHDITICN FLAG 
RET 
SS MATCH -~- POF REGS FROM STACK AWD RETURH 
~LOKUPS MOV C.8 
MUT B. 8G 
DAD B 
PCr 8) FOP PSW TO D 
Mo AeD MQVE INDEX Ta A 
PCP 6 FOF H Toa > 
PUP 8) FOP D TO D 
POP E 
RET 
EMDIF 
IF A. MCVeL 
»MOVUEL EGIL »ERMES 
# MOVUEBL HOT ASSEMBLED 
STL “MOWBL © 
EJECT 
STL “MOUEL - 
EJECT 
ELSE 
STL “MOVEBL - 
EJECT 
He 
*, MOUBL MOVE BLOCK OF CHARACi ERS FrRiwi sulin HeetR Tu DESTINATICN 
AREA 
* 
be CDE.=ADDRESS OF SOURCE 
# SHLO=ADDRESS OF DESTIHATICH 
# CAX=HUNBER OF BYTES Ta MOVE 
ad 
. MOUBL PUSH EB SAVE CURREHT BC 


an 
wo 


SH2tUS4Ge SSPROSK RPA T SOUSA SSR ORES SUS ORKLS OLY 


PROGRAM 


»MOUBL 1 


# 
»MOUBL2 


HAMES UTILITIES - PRICE < CONT’D > 


Maw B.A MOVE COUNT TO B REG 

INR B 

DCR B DECREASE COUNT 

Jz «MOUBL2 RETURM IF BLOCK MNQWUE COMPLETE 
LDA D LOAD SOURCE CHARACTER 

Mot! 2A MOVE TO DESTINATION AREA 

IH IHCRENENT D AND H REGS 

THM 
IMP »MOUEL 1 

RETURH TO CALLIHG ROUTINE 
POP E 

RET 

EMDIF 

IF A. SCAH 

EG -ERMES 

SCAH HOT ASSEMBLED 

ELSE 

STL “ SCAH * 

EJECT 


ae? 


EMT R? 

KH» LO=ADPRESS OF STRIHG 
KEQ=MAM BYTES TO SEARCH 
SAS=SEARCH CHARACTER 


EXIT 
SH. LO=ADDRESS OF MATCH OR HEXT STRIMG 
TBs=8 HO MATCH 
7B MATCH -- HUMBER OF CHARS REMAINGING +1 
C=MATCH BYTE IF MATCH 
=HMAM BYTES +1 IF HO MATCH 


= 
<< 
bet 
mam m 
at 
pea) 
pee 
mt 


SH><U><4G> 


<SoCOSCF OM TOMWESASAROKED> «6S USKOdK 


PROGRAM HAME: UTILITIES - PRICE «< COHT*D > 


» TYPE 


«rire. 


- TYPE2 


» TYPES 


*€ 
2 1YPEOL 


IMP . SCAN1 


i A. TYPE 
EGU »-ERMES 
TYPE HOT ASSEMBLED 


STL“ TYRE’ 


PRIHT CONTENTS OF BUFFER OW CONSOLE 
SAO=HUMNBER OF BYTES 

CB. C= LF BEFORE.AFTER LIHE 
SHLO=ADDRESS OF BUFFER 


PUSH D SAVE DE 
haw) D.A 

INITIAL LF-CR 

MUT E. Ge 


CALL .TYPES THITIAL CReLF 
DCR D 
JM TYPE 


Mat A. 

CALL #WCHAR 

INé H 

IMP TYPE! 

Mow B.C 

MT E. BEIGE 

CALL 2tT¥YPES 

RETURH TQ CALLIHG ROUTINE 


POP D 

RET 

CReLF ROUTINE 
DCE E 

JR » PYPESI 


MT A. Bi 2G 
CALL FWICHAR 
Mou E.A 

IMP et vPES 
CARRIAGE RETURH 
MC FALE 


it 


61 


PROGRAM HANE: UTILITIES - FRICE 


* 
s ISPES2 


» MODE 


a % 


*. MOUDE 


»MOUDE 


+ 


»MOUDE 1 


.MOUDES 


AHA Ai 

J2 « PYPRS2 
MT A. GAS 
CALL $WCHAR 
WAIT FOR RETURH -- @.3 SEC 
MUTI A, 366-2 
CALL »DLY 
RET 

ENDIF 

iF A. MOUDB 
EGU »-ERMES 


Sk “MQUDE 


MOWE LONG BLOCK « GT 255 BYTES: 


ENTRY 

BC=HUMNBER OF BYTES TQ MOVE 
DE=S0URCE AREA 
HL=DESTINMATION AREA 


PUSH Sd 

Mow A.B 

AHA Fi 

JIMP » MOUDES 


MT A, SFr 
CALL » MOUBL 
Naw a 
SUI arr 


Mow C.A 
MoV ALE 

SEI GGG! 
Mow B.A 
JHE »AQUDE 4S 
Mow 3 
CALL » AWB 
POP Phi 
RET 

EHMHDIF 


<U><O><L> 


= GOMER > 


PF 


II 


co CHOKUS<G> 8 <S>COK FSR TPAWOCASS RSS ES | CUO OR<KL Tet 
PROGRAM WAME: UTILITIES - PRICE < CONT’D > 
IF A. OCFEHM+A. DTAFE 
. DOPEH EGiu sERHMES 
* DOFEHM HOT ASSEMBLED 
ELSE 
STL “DOFEH~ 
EJECT 
*, DOPEM 
ok 
# OPEM DUMP PORT FOR GUTPUT 
K 
#—-——— ,DOPEH. .DWRITE. .DCLQSE ---- 
* --ROUTIHE FURCTIOMS 
si » DOPEH WRITE LABEL RECORD 
* IHITIALIZE BLOCK COUNT 
* »DWRITE COMPRESS BLAHES AHO ADD EOL (&8a> ¢ 
Gp 2958 FILES OGHLY> 
: * MHQWE RECORD FROM WORK AREA TO QUTPUT 
BLOCK 
* UF DATE OUTPUT BLOCK COUMT 
Ba WEITE BLOCK . IF FULL 
oo » DCLGSE WRITE PARTIAL BLOCK. IF NECESSARY 
* WRITE EQF RECORD 
re 
# 
4 —--USER INITIALIZED UTILITY CONSTANTS -- LOCATED AT TOF 
OF UTILITY PACKAGE 
bs » DOPENF FILE WANE 
so » DOPEHF: ADDRESS OF OUTPUT BLOCK 
* . DOPEMT FILE TYFE G&@30 “TEST EDITOR COMPATIB 
LE ASCII RECORDS) OR 
# GSliQ (BYTE FUCRMAT -—- AHY 6 
BIT BYTE ACCEPTABLE > 
* . DOFENW ADDRESS OF OUTFUT WORK ARERR 
ok . DOP EHL HAS LEMGTH OF WOUFUT BLOCK 
*K 
ss --USER DEFINED AREAS -- LOCATED IH CALLIHG FROGRAM 
ba QUTPUT BLOCK FORMAT: 2 BYTE BLOCK COUNT 
3 DATA BLOCK -- ©. PORPEH 
Lo BYTES LEONG 
# ADDRESS: ©. DOPEMEY 3 


| x CONTENTS BLOCKED 
|) WRITTEN TO GUTFUT TAPE 


RECORDS 


fu Be 


ZHECUDS GD 


FROGRAM HANME: 


cS 
tk 
5 


od 
* 


HOUIGH TO HOLD LARGEST 


CS rc PCP PC Tec esA Pe Reese <OL> It 


UP TEE eS 


WORK AREA 


COHTEHTS: 


QUTPUT BLOCK 


et 
od 
Bo 
LOSED ». OF 
Bo 
OPEH 
ok 
“ 
oe 
. DOPEH 


--ERRGRS = 
11G 


SAVE REGISTERS 
PUSH = FSI 

PUSH B 

PUSH > 

PUSH H 

CHECK STATUS 

LDA =. DOPENS 
i 

A. 118@ 

. TPERR: 

. DOPENG 
BLOCKED 
INITIALIZE RECORD 
. DOPEHR: 
MRA A 

NOW MA 

INK OH 

NOW MA 

RETURH 

POP oH 

POP 

POPE 

POP 
RET 


WRITE BLOCK Ta 


SOUMD 
ATTEMPT TO OPEW FILE HOT CURRENTLY C 


= FPRiOCE 


FORMAT: 2 BYTE RECORD COUNT 


DATR GLOCK —~ LHRGE E 


STHGLE RECORD 


ADDRESS ¢ ©. DOPE 


RECCRD TO BE MOWED TO 


ALARM AHO DISPLAY ERROR HUMBER 


TO CLOSE FILE HOT CURRENTLY 


COUMT 


TAPE 


-) 


<He<U><G> 


CS>COPME MT ICWESARSR ESE? <UDCOOSLD IT 


PROGRAM MAME: UTILITIES - PRICE < CONT’D > 


Ht 
. DOUPENG 


- DOPEN 1 


» DOHEAD 


*. DHEAD 
Sa 
4 


CALL » DHEAD 
WRITE TYPE 

LDA - DOPEHT 
CALL » WHE 
WRITE SEQ=6 
“RA A 

STA . DOFENC 
CALL » WHE 
WRITE COUNT=HEADER RECORD LEHGTH 
LHLD » DOPEHF 
CALL » WHE 
WRITE LABEL 


Mau Bol 

LHI H. .DOPEHF+2 
May Ah 

CALL » WHE 

DCR EB 

IN* H 


JZ »DOPEN1L 
WRITE CHECKSUM 
LHLE »CROSUM 
CALL WH 
FLUSH CHECKSUM 
CALL » WHF 
STOP TRAHSPORT 
“RA AH 

OUT OP. TSP 
UPDATE STATUS 


MUI A, “a 

STA »DOPEHS 

RET 

EMDIF 

IF A.OTAPE+A. DOPEH+A. DWRIT+A. DCLOS 
EGU »ERNES 

ELSE 

STL “DHEAD~ 

EJECT 


WRITE HEADER 


-o 


bot 


PROGRAM WAME: UTILITIES —- PRICE « COHT’D > 


ok 
.» DHEA 


. DHEAD t 


sa 
Ba 
HE 
» DOPENS 
. DOPEHC 


»DWRITE 
. DWEI Te 
# 


*, DURITE 
Sd 
+ 
Bd 
 GMIRITE 


CS PKUSCP OCT SCS ACR ROME? §6<UPKOre 


OUTPUT SYHC CHARS 
MT ALA. SH 
MT B, 32D 

CALL » WHE 

DCR E 

JH2 »PHEAD 1 
WRITE ST CHAR 
MT A.A.STS 
CALL » WHE 

CLEAR CRCSUM 

HRA A 
Mou Hs 
Mow L 
SHLD ae 
RET 


DE sil Gad STATUS 
DB a SEQUEMCE 
EMDIF 

IF A. DWRIT+A. OTAFE 

EGH »ERMES 

EGU »-ERNES 

DWRITE HOT ASSEMBLED 

ELSE 

STL “DURITE* 

EJECT 


WRITE GQUTPUT RECORD To DUMP PORT 


PLUSH Pot 
PUSH EB 

PUSH 6) 

PUSH H 

CHECK STATUS 
LDF . DOPEHS 
CPI “ci 

MUT A. 11a¢ 
JHE . TRERR 


if 
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PROGRAM HAME: UTILITIES - PRICE < COHT“D > 


. DWREL LOR . DOFEHT 


CPI BESO 
JE -OWRCTE 
CPI G11 


CHEZ -ERMES 


PROCESS HEX FORMAT RECORD 


MOVE WORK COUNT TO BC 
-DWRBL@ LHLD » DOPE 

Mow C.M 

INX H 

Mou BM 

LHI H. 2A 


DAD B 

* SAVE WORK AREA COUNT 
SHLD »DWRELI+1 

* MOVE RECORD COUNT TO DE 


LHLD . DOPFEHR 
Moi E.M 


IN*® H 
Mon DM 
4 CREATE FOINHTER AWD SAVE 
IW: H ACDRESS+2+CURREMT RECORD COUNT 
DAD D 
SHLOE »DWREL +1 
# CREATE WHEW RECORD COUNT AHD SAVE 
LI H. 2A 
DAD B 
DAD Db RECORD 
SHLD »DWRELA+1 HEW RECORD COUNT 
Bg COMPARE LEHGTH WITH MAR 
LDA .» DOPEHL 
SUE L 
LDA . DOPENHL+1 
SEB H 
JHC . DWREL 1 
* WRITE CURREHT RECORD 


CALL »DWRITE 
LHLD » DOPENHR 
SRA A 


6? 


“Het G> 


PROGRAM H 


# 
» DWRBL 1 


» DUREL 2 


» OWRELS 


4 
. DUIRBL 4 


# 
e 
+ 
* COMP 
DD EQL {8GGQ> 
. BDURCTSE 


{Srcuenr os betwen Ra eS 


ne: UTILITIES = PRICE 4 COnT“@ 


Maw 
IN 


M.A 
H 


Mat M.A 
IMP » DWRELE 
MOVE WORK AREA TO RECORD ARER 
HI B. GIA WORK ARER COUNT 


» DOPEM WORK AREA ADDRESS Ta DE 
H. GA 
» AOUDE 
DB. GA 


» DOPEMR 


POIHTER 


HEW RECORE COUNT 


Mow MoE 
IMs H 
ho Mod 


RETURH 
POP 
POP 
POF 
POF 
RET 


LD 
BE 
Pest 


PROCESS COMPRESSED TEXT «CT RECORD 


RESS OUT BLAHKS AWD RECORD COUHT FROM WORE AREA -- A 


LHLD » DOPE 


hc coh 
THE H 
Mau Bf 
THe H WORK AREA COUHT TO «Bs t5 
SCHG WORK AREA ADDRESS Ta > -- FIRST DATA 
BYTE 
LHLD . DOPE WORK ARER ADDRESS TO H -~ FIRST BYTE 
OF COUNTER 
oe STORE DEFAULT BLAHK 
~-CWRETL HUT PM. ZAG 
* LOAD HEST BYTE 
DCH EB 
Mc! AE 
AHA A 
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KSPCOSCE SK TPAW SAS RetE> <UE<OS<¢L> IT 


PROGRAM NAME: 


a 
-DURCTZ 


-DURCTS 


. DURCT4 


MOVE 
MOW 
IH 
INK 
IMF 
MOVE 
IHF 
THis 
PCH 
Mat 
AHA 
JM 
LDAS 
CPI 
JE 
Ins 
JMNP 
Ins 
MUT 


WORK. 


MOVE 
Mow 
Maw 
SHLD 
MOVE 


SET UP NEW RECORD COUNT. POINTER. ETC 
ARER COUHT IH «B.C 
ADDRESS OF LAST BYTE TO <D; 
. DOPE 
Ase 
i 
C.A 
A.D 
H 
B.A 
B 
WORK AREA COUNT «B.C TO «H.-L 
H.B 
La 
-DWRELI+1 
RECORD COUNT TO “D.E2> 


UTILITIES 


-DWRCTS4+1 


p 
G4 G0) 
»DWRECTS 


CHARACTER 


M.A 

D 

H 
»DWRCT 1 


BLAHK 6S > 


M 

D 

B 

A.B 

A 
»DWRCT 4 
D 

B40! 
-DWRCTS 
H 
«DWRECT2 
H 

M. GBC 


~ PRICE < COHT’D > 


MAH LEHGTH RECORD 


SZ 


SET UF DUMMY BLAME AGAIH 


ES 


mo 


fa) 


PROGRAM WANE: UTILITIES 


-DWRCTS LHLD 
Mon 
THs 
Mow 


+ CREATE 


IHX 
DAL 
SHLD 

* CREATE 
LHI 
DAD 
DAD 


. DOPEHR 
E.h 

H 

DM 


- PRICE « CUMTD > 


POINTER AWD SAVE 


H 

D 
-DWRELS+1 
HEM RECORD 
H. BA 


B 


B 


COUHMT & SAVE 
G+ 
WORK AREA COUNT 
OLD RECORD COUNT 


SHE LUE GS the 


PROGRAM HAME: TARE 


+ Si TAPES 


TITLE “TAPE MANAGEMENT 


MITES ADS REED CUCL OTT 


MAMAGENMENT -— TURMER 


VERSION G4, 48 Fsetes~ 


STL “MAIN ROUTINE M2 ROM TURNER 


EJECT 
CRS 
START dhe 
JF 
COLE 
SPACE 2 


CALL 


401 GGA 
COLD 
WARM 
TEDATA 


+ PROMPT OPERATOR 


WARD Let 
MLIT 


CALL 
* READ COMMAND 


LNT 
MUI 


CALL 


>. PROMPT 
B.% 


Wc. RTH 
He THELT 
Ru Se 
Fit. ETH 


+ SEARCH COMMAND TABLE 


Let 
List 
rMcus 
CALI 
* DOHE 
MF 
EJECT 


D. IMPUT 
HM. TAELE 
B.C 

FC. RTH 


GO PROMPT OPERATOR 


WARM 


+ SUBROUTINE —- READ A TAPE RECORD 


READ Lil 


H. TRAREA 
EB TRLATH 
FT. RTH 

Ds TPFMT 
Hy DMFMT 
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PROGEREP NAMES TREE MANAGENENMHT - TURHER «< COWT“D 


TPENT 


PRYTEQF1 
LET Wet ee 
rhs ee 
CALL tit. ETH 
RET 

PRTEOFL LXI 0D. EOFMSG 

PIT E.6 

gett Wi. ETH 

MRF oj 

Sth DMSEC! 

mE 

Lad D. TPARRER 
L PUSH > 


CALL WT. RTH 


ae ETE 
THs f 

LDF i) 

THF A 

Bi les ile TPR 
EA A 

STA DPPSE 
Si) OPERATOR — oie 
List 0. DOME 
Puy B.il 
CALE Wt, RTH 


ISRGUT INE - COPY TAPE RECORDS 
= FARAMETER LEHGTH 


ve 


PROGEAP 


J 
=r 
2 i | 
aoe 
ey 
3a 


TAPE MANAGEMENT - TURMER < CONT<D 


a e 
JHE CERT 
AT Hod 
SHLD = RECCHT 
IMP TSTCHT 
* CODED —> EHD <LSho OF PARAMETER 
CUERT MCHG 
GAG BS 
MCHG 
DOM t 
# -RECCHT- = BINARY PARAMETER 
Mc Bc 
LHI H. RECCHT 
PLT ce 
CALL CE. RTH 
# -RECCHT- = a? 
TSTCHT LALO RECCHT 
pid A. 
CHEFY L 


Hex 4 
SHLD RECHT 
LyI Ho FIRSTTF 
SHLD CEST +4 
* FREAD A TAPE RECORD 
CPREARD Litt H. TEARER 
List B. TPLMTH 
CALL FT.RTH 
Lisl Db. TREMT 
Lt HH. DMEMT 
LOA oD 
FHT irra 
Pn ELA 
STA BIMFMTH 
THE H 
Mon Fh 
oCe 14 
AME! 5 
IMZ HOTL 
May MB IMIT DMFMT 
a 


HOT LED. ric 


=. 


ta 


PROGRAM MAME: THREE MANAGEMENT — TURHER < COWT“D > 


FM 
im OD 
mH 

DAM OB 

TE BINSECH 
JHE CPYERR: 
CMF OM 

INE CPVERR 


EJECT 


Neng 
= 
oo 
Td 
ml 


4 

LA Ho He TSEC 

SHLD CP Shy + 1 

CALE DSPLY1 

MMT SEE CAL DSF 
Leal OD. TRAREA 
CALL. WT. RTH 
Lal H. DMSEC 
LOR TRRPY 


JE FPRETECF 

THE i 

rat O. SEM TCL 

PHIT Ei 

CHEE dl, RTH 

JRF CPREAD 
PRTEGF MIT mM. a ZERO OMSEt 

oat OG. EOFMSG 

rh Boe 

CAM wi. RTH 

IMP TSTCHT 
CPERF ere OG. BIHNHFMTH 

3 »ASPATHS 


il 


f 
feng 
15 ie 2 2 


Ti 
iy 
aS 
mt £ 


Bil. RTT 
Lat DR. BINSEOQH 
LSI H. ASSEGHS 
ol i 

CALA BC. RTH 


LHI D. CPYMSG1 


= 
i 
. 


PROGRAM WAPIES 


MIT 


EJECT 
DSFLY1 


LAL 


MIC J 
CHF 

ni 
pions 
Pic 
AHA 
Je 
LAT 
hic 
CALL 


FULL EL 


a a 
he at 


FSC TSCA 


TAPE MANAGENEMT — TURNER 


B.CPYSITf1 
Wi. FETA 
AG. RTH 


2D. DMFT 
H. FMTMSG2 


Bl. RTH 

DD. FMTMSGL 
Bull 

We. RTH 
TPSEQ 

Fi 

PRTREC 

D. LBLEC 
B.t 

Wo. RTH 

D. TRPDATR 
H. CHSLEL 


MA. oiled 


FULLBL 
C.E 

A. 

Fi 
PRTFEED 
G. CHSLBL. 
B.C 

Wit. RTH 


£ COMT’D 3 


ndl 


“J 
an 


PROGRAM HAME: TARE MAKHAGENEMT ~- TURHER < CONT “D> 


PRTFEED LST o. FEED 
j 


PROP RE aS 
PLAT i 
lS | ta be Wi. FETT 


LMT b, TPSEG 
LMI H. CHSSEQ? 


LRE 
ric 
Sree ult, BTM 
FET 


[6 

“hh 

- 
ee oes 
. Kh % 

7 # 

mu 

ay ea 

FAS 

he 


SUBROCHIT INE = DURE THRE 
LIST Lead H. MOWER 
PIT He te 
IE LISti 
EN Se Let H. POE 
PIT A168 
Eisks Sri LST +4 
ri Ia LHSTZE+1 
Las D. LHFEED 
PLAT Eis | 
CALE. Wit. RTH 


H. TPARER 
B. TPSiZe 
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Uti oS 


PROGRAM HAMES 


SS es Be 


LHSIZE 


FUL THE 


THe 
LDA 
Rit 
CPI 
JH 
THis 
Ine 
TH 
The 
PUSH 
PUSH 
List 
PIT 
CALL 
Let 
Tm 
CMF 
ue 
Ps 
CMP 


JOSIP 24 Ted A SS RES 


TAPE MANAGEMENT - TURNER < CONT” 


Bb 
TREMT 
fra 


D 
FULIHE 
ALC 

E 
FULIME 
C.E 


» TRCHT 
» CHSELSB1 


ADNAN goo roM 
a 
= 


“tT 
ea 
a 
whe 
ar 


ox 


VAR YS 
>. BIHAR 
»CHEL SES 


Joke 


Crim 


(ea 
® 

4 
—— 
as 


=] 


aj 


PROGRAM HAME: TAFE MANAGEMENT — TURMER < CORT 


ror BR 

FOP D 
ris D 

eee H. CHSCHR 
rt Bail 
ALL. MA. RTH 
MIT lates 
ror H 

POF D 
FLUSH a 
PUSH o 


LShT Be 


Lal Do. CHSOLIT 
ryt Ae 

SIE -E 

cs B.A 

CALE Wit. FETE 


pus ALE 
LUE 
hci 
Pci 
Ret a a 
pices 
CRA 
Por 
Re 

Pci 
ABD 
Pct 
Pit 
Ab: 
roi 


ae a) 


cmommms 
ty : 


cy a 
i 


rm Dr 
2 


TD 


CHE USGS <SetOei Fen ToCWotASeRecE> 8 <U><O><L> 


PROGRAM HAME: TAPE MAMAGEMEMT —- TURNER < CONT <“D 


JF List? 
EJECT 
MCWIE SCH 
Lint He 
MOWEM A PIT B.S 
MOWERS CALL : 
DCR ts 
RS 
THE H 
Dil E 
JHE MOVERS 
Ins H 
Tih H 
JF MOVES L 
MOWECG SCHG 
Lal H. CHSEMPF 
MOWIE CL PST Bo& 
MOWIE GS CALL BO. RTH 
DC C 
eS 
THs H 
Calke E 
JHE MOWERS 
THe 
THe 
IMF PUNE 1 
* SUBROUTIHE —- WRITE LABEL RECORD 
LABEL SRA A 
STR DP SE 
hc Ak 
STR GMS Te+1 
AA A 
Jz WRT COAL 
LHI HH. DMDATA 
CALL PRI. eT 
Led 0. DMREC 
rita ties Whe TALL. 
+ SUBROUTIHE - WRITE DUMP? SEO RECORD 
DUP rR! pyc CE 
SRA 
Pin 


mm 


~j 
es) 


PROGRAM NAME: TAPE MAHAGEMENT — TURMER 


m 


ms 


ot 
A. DASE 
ad 


Yale, Sh 


Ba HI oe 
= EG 
& . 
wi 
| 
tn 


DMS Tf+1 
OG. DAREC 
WRTCALL 


CHAHGE SEH 


ae 


Gy 1} 


A 


e 

B.C 

H. TRPSEG 
ican | 
CB.RTH 
WRT DOME 


ROUTINE — WRITE EOF RECORD 
‘AMETER LEHGTH @? 

RCH) ALB 

FINE: Fi 

RP 


ete 


t FID FORMAT PARAMETER 
MT Bae 


re 4 


IME FHOF IMT 


= CONT < 


3a 


SHEA GS ASSO POR TSW PAP Rec E> 6S 


PROGRAM HARES THRE MAMAGENEMT - TuURAER =< CoOMT” 


QUE FORMAT TO OUTRUT 
PLUSH 
PUSH D 
Ds f 
Lal H. EOF REC 
cot 


a 


Peet a ts 
PIT ad 
CALL CE.RTH 
+ SET EQF BIT IN OUTPUT 
PCH! Ae ft 
(eT ea ot 
Pi he A 
* WO SEC PARAMETER? 
Pur t 
FOF = 
Dm 
Pe 
* FID SEG PREAPETER 
Piast Cl. Bt 
FHDSER THE t 
The iG 
DCF EB 
JHE FHOSEC 
* PLE SE TO OUTPUT 
THE H 
Gime B.C 
MUT ie ft 
CALL CB. RTH 
* WRITE EOF RECURD 
Lisl D. EQFREL 
JME WRT CALL 
+* SUGECUTIME -— COMMAHD LIST 
HEIL Lest D.ALFRPSGi 
PIT Bw HLFSItz1 
CALL Wi. RTH 
List O. ALFMSi 
Pty B.HLPSIZ2 
CALL Wo. RTH 


a 


* EL-TAPEM 
* SL-AD, 


p 


a1 


“tl 


1 


RIIGRRP) HARE § 


Th “ASCE Ti DECIMAL 


TAPE NAMWAGEMEMT — TURMEF - 


ef ats 


4 SAE TARGET LEMGTH. TARGET ADDRESS 


Ais. RTT PLUSH 
PLUSH 


E 


H 


6 RD oe SOURCE LENGTH: <EROC WORK AREA 


Pict 


LeI 


MIT 


CALL 


+ INE TIALITAE 
PIT 


Cc. & 

He AD. Dice 
By 4 

2h. RTH 


PLIP PLOF 


Bis 


+ ROWE SOURCE To WORK: 


Lae 


a 
IMF 
ADL FRAT OWE 
PWT 
AD. Fee |= ORR 
rics 
GOH 
Oe 


JIH2 


HL AD, Ode 7 
D 


LFil 


AD. Fer 
H 


er | 


rH 
MA 
D 


AID WMATA 


%’ RUE WORK TO TARGET 


Let 
Por 
Por 


PCH 


CALL. 


4 ae 


DAD. DCK 


a ie 
Pd, Reb ts 


MERS TOM Ge. 


COMT BR > 


Ba Fadi e- 


ROM TURMER 


PROGEAM HANES TAPE MANAGEMENT - TURMER =< COMT"D 


STL “ALERT OPERATOR VERSION 86.80 Feemia- 
EJECT 
AC. BELS DE 70. 7Q. 7G. 70.70.70 BY: ROM TURHER 
AC. TICK EGU 48G33A 
SPACE 2 
* HEGATE CTL-A & CTL-O 
ACL ETH LDF oe ee 
Fir 1650 
STA Crt 
* CYCLE CONSOLE BELL 
AG. RING LI >. AC. BELS 
PLT E.G 
.TICK+4 


LDF FA 
RRC 
Ce Wo. RTH 
* TEST FOR CTL—-A 
LDF Te Oe ak 
FRC: 
re: 
RRS 
RR 
JHE A. RDG 
* GOT CTL-A. CLEAR CTIL—-A & FETURH 
LDA a Vee el ft 
ArT 167 
STA eh Gee 
RET 
# RFC. 
OSLER. 
STL “BIKAR ADDI TICH MERSTOH GA, Be Pees is* 
EJECT 
BA. ETH AIA A Bs RCH TURKHER 
BR. AGL LISA co 
FAC: ia 
Pa! M.A 
THis to 
THE H 
Coke Ei 
JHE BRA. AD 
FET 
*« EL~EBF. 


ae ig 
i 
hat BS 4 
7 ee 
+ one, en 
re aE ES 


ro 
ly 
eee 


PUSH 
PAT 
CALL 
POF 
POF 
POP 
PCW ae 
CALL DAL RTH 
RET 


ee Bae a ae ao 
pale = 
a 
~ 


PROGRAM AMES TAPE MANAGEMENT - TURMER «< COM D > 


Bye ROM TURHER 


“ELHARY TO DECIMAL MERS TOM Ge. FOS * 


OF BIHARY POWERS OF TEM 


ie = Oe we ey aimee 

DE SHG. So SEI f FEM 
De i 14,1820. 82 PE ft 

DE 

ryt 

Mme 


a WRERS 


BL. sili 


wie 


PY tok. 2 tl 
fmm en fc a 


TARGET LEHGTH 


BY’: ROM TURHMER 


MILLIGN 
MILL IGM 

HUNDRED THOUSAMD 
THOUSAND 
THOUSAND 

HUNDRED 


OF TABLE 


a4 


PROGRAM HRAME: TAPE MANAGEMENT — TURMER < COHMT“D 


PUSH Ei 
* EERO WORE ARERS 
Le. HL BD, BMidk 
Pty Bax 
CALL 2h. RTH 
+ RETMIEWE SOURCE LEHGTH 
POF BE 
* RESTORE TARGET LEHGTH 
PLES E 
4 OWE SOURCE TO BINARY WORE AREA 
LAL H. BG. BHilk 
CALL MM. RTH 
* THITIALIEGE AWD SAE DECIMAL WORK POITMTER 
Lest H. BD. DCHI+1 
PUSH Hi 
« IHITIALIZE AME ai ie Pies Flee 


PLIST Ea 
o PUSH B 
* INITIALIGE TABLE INDE} 
Lit H. BO. TEL 
* THITIALIZE COUNTER: 
BD, SUE PIT Cl. 
# SUE TRACT A POWER OF TEM FROM BIHARY WORK 
BO. SUBS LHI ee BD. Bide: 
PIT Bia 
RMA FA 
BD. SUBS LDAM 0 
SEE a 
STAB ie 
CATR B 
Le BR. CHT 
THE H 
INS D 
| od BD. SUBS 


+ TC = # OF TIMES POWER SUBTRACTED 
BC, GH THR C 

Ds i 

i ee H 

Bi BD. SUB 
* FPWIE ORR. UNDO LAST SUBTRACT 


PROGR WARES TAPE MAWMAGENEMT -— TURHER < COHTD 


CHE ic 
> PCRER 
BH 

Lad H. BD. BRE 
PIT Bas 


CALL BA. PITH 


fn 
mi 
! 


+ PREPARE «C2 FOR MOWE TO DECIMAL WORK AREA 


PCH! AS 
POF B 


POF Hl 


ES 
2h DGS 


Lit iff ea TS 
im 
ha 


as 
m 


i 


* HOWE «Co TO DECIMAL WORK AREA 


OR hy 
rn hf. 

CHL -> HEST POWER OF TEM 
SICHG 


°c TES) Pom BHR Ge TABLE 


MEA Aah 
AHF Fi 
A Fa BD. SUE 1 


* FLUSH STRACK: MOWUE DECIMAL WORK TO TARGET 


Por ‘ 
Por 4 

co = TARGET LENGTH 
FOr B 


#& FILL. TARGET 


Led OD. DOE 


CALL MRT 


CHAU <G. 


PROGRAM MAPE § 


RET 
* EL-BD. 
* SL~BM. 


STL “BLANK MEMORY 


EJECT 

BM. RTH MT 
DiTF 
INy 
IMP 

* EL~EM. 

* SL~CE. 


Stl. “HSC i 1 


EIECT 

CB. BCML 65 

CE. PSs EL 

SPACE 

CB. RTH PUSH 
FLUSH 
Led 
PIT 


* EL-C&. 
* SL=-CI. 


STL “COHMSOLE INTERRUPTS 


ore | os ol § 


BIHAR 


SKF RCT OCWECADERICED <URCOKL> TT 


TARE MANAGEMENT -— TURKMER < CONT? 


VERS IO GG. Ge PSB 


Hao BY ROM TURMER 
E 


H 
EM. RTH 


VERSION Ge. Ga FSi oa" 
4 Mie ROM TURMER 
K-11 


EB 

H 

H. CE. DRL 
ms 4 

AD. RTH 

D. CE. MSE 
Hi 

E 

a 

DE TH 


MERSTOH @8.81 Poaehed “ 


* CONSOLE IMPUT GuEUE B's ROM TURNER 


CT. Ge i 
De 


CI. GMA EC 


tt 


#-CT See 2 


+ CONTROL CHARACTER TABLE 


4 DE 
* IF CHARS: 

oe =I. Gi 
CieCTTR Pe 


CHAR. MASE. ALE 


Telli RD NAS Soe -VRLUE= 
Mii. SP Po. BAG CTL CMLL 
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PROGRAM NAME: TAPE MAMFIGEMEMT - TURMER < COMT“D > 


ts 
Ht OF TABLE 
AGDRESS 


BIT STORAGE 
be 
EGU OUTPUT To RING BELL 
COMSOLE DATA PORT 


COMSOLE STATUS PORT 


ELI 


STATUS FOR DATA AUAILABLE 
1 ae EEA 
Bor td 
CALL RCUTIWE TO ADD TO GUEUE 
ill, READ 
Ped 
4 


TH QUEUE FOR DATA 
Hill. @S2 

AT, CHAS 

hn 

CALL QUERFLOM ROUTIHE 
or LB | Be 


Bete TO BOBUE 
DMF My 
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“Heer G> <Se< Oe ee T P< ll> 


PROIGEAMN HANES TAPE MAMAGEMENT -— TURHER 


| ef a 

pr Ho A 
TH ete 
ArT LP? 
hic ht. A 


LASCRESES> <UecOecL> 


* TEST FOr COMTROL CHARACTER 


ce a 
Ferd 
+ HAWE CONTROL CHARACTER. 
Liat H 
CT.LOGER INK H 
THe H 
CMF hr 
Pam: 
TH 
JHE CI.LOOK 


as, 


+ FOUND TABLE ENTRY. CLEAR 


Lor CI.cTe 
AWA i 
Tes H 


« SET CONSOLE CONTROL BITS 


HRA MH 
Sie CI.CTL 


F SERRCH THELE 
iis! tome 


EMD OF TABLE 


COMSOLE CONTROL BITS 


AWD FLAG 


4 SAWIE COMSOLE COMTROL BITS AWD FLAG 


PLE Psd 


~ REMQUE (CHARACTER FROM GUEUE 


Let H.CT.aS2 
LO od Mt 


* RETURH IF WOT CTL-A THRU CTL-D 


Pcie Poh! 
fet 


* HAWE USER INTERUPT. GO TO USER ROUTINE 


LHLD 
POHL 
* OIUEUIE OMERFLOM. DISCARD 
Sd tele leh Rie | 
Nee a ae fl TH Cf. Caay 
RAF 
JES CLP Ty 
PIT Asis iBEEE 
AIT Gi,GsbpT 


Cl.Uint 


LAST BYTE. RING BELL 


< CONT. D | 


- 


PROGRAM HAE s 


4 Eloi at 
ot ~DFi. 
Sil “DECIMAL 
Seeh 


Dr. ETH LDF 


et 
inim 
ak 


r 


DAW CMRT ADT 


+ EL=DA. 
# SL-DB, 
STL “DECIMAL 
EJECT 
DB.FLIP 65 
DE. HL. pS 
DE.HLDS oS 
SPACE 2 
OSE TARGET 
DE. RTH PUSH 
PUSH 
* SER TARGET 
Mow 
ALE 
List 
PIT 
CALL 


TAPE MANAGEMENT -— TURMER «< CONT“D > 


Th ASE ERS TOM Ga. Be PSeebae 
2 B's ROM TURMER 
LP 


DF. CURT 


0 


Se 


DA. CURT 


ie 
DR. FETT 


TO BIHAR VERS TOM Ge. Ga Peee lo 


BY’s ROM TURHER 


ADDRESS SOURCE & THREGET LEMGTH 


& HOLD AREAS 
Faw: 
ai. RTH 
H. DE. HLL 
Bh 
el, Fev 


SHS<US<G> <5 


PROGRAM MAME ® 


SLOPE PT PMS CAS ROSES 


Lids 


TAPE MAWAGEMENT - TURMER < 


* THI TiALieek FLIP FLOF 


PIT 
STA 


As Bl@le1eaik& 
DE. ELIF 


* BO = SOURCE LEHGTH + 1 


POP 
POF 
IHF: 


E 
H 
EB 


* FIHD BCR DIGIT 


DE. WEST LDR 
RL 
STF 
a 


DE. FLIP 


DE. FLIP 
DE. FeMAL 


* TEST FOR EMD OF SOURCE 


DCR 
Pee 


E 


* HI ORDER 4+ BITS 


LFS 
ArT 
eR 
id a 
FR 
od 3 
JME 
* LO ORDER 4 
DEL FRAL LBAM 
DCH 
Fir T 
EJECT 


D 


Beit 


DE. FAIZ 


BITS 


t 
D 
1rt 


* PREPARE TO ADD DIGIT Ta OUTPUT 


DE.Fahi2 STA 
PUSH 
PUSH 
rls 
PUSH 
PLUSH 

* PCWE TARGET 
ACHG 
Led 
CALL 


DE. HL 1 


Imam 
ry 


TO) HOLE 


H. BE. ALD 
Md, BETH 


+ TARGET = TARGET + 4 


Pale 


H 


a Wf Se 


OMT D> 


if 


*, 
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Por 
PUSH 
FLUSH 
CALL 
FCF 
PCF 
PLUSH 
PUSH 
CALL 


4 TARGET = HOLD + 
D. DE ALE 


LeI 
POF 
POF 
PLUSH 
FLUSH 
CALL 


Wy co Om 


SL. RTH 


sy aS EO 


SL. RTH 


= 
* 


te 


A. RTH 


« TARGET = TARGET + 


Por 
POF 
PLUSH 
MLS 
Crile 


+ TRHREGET = TARGET + DIGIT 


INE 


H 
Et 
E 


Lg 
en 


SL. RTH 


D. DE. ALG 


H 


ci? 
DE. MEM T 


PM OM MAME 


& GE 


; 
CALL 


“THMAL TD. 


THE TD SHIP ICANT Co 


FC. EVPE 


MERS TOM Ge 


REEMTER ° BY! ROM TURHER 


SAAD BLAMES 


CSU GS aOR OAT ARIA RES | (CUS LS 


PROGRAM MANES TARE MAWHAGENEMT -— TURKHER < COMT 


* TEST FOR ZERC COMMAND LEHGTH 
Jz FC. BAD 
# SAVE COMMAND LEMGTH. COMMAMD ADDRESS 
FC.SEDE PUSH & 
PUSH — D 
# TEST FOR SIGHIFICANT COMMAND BLANK 
FO.TSTE LOAM Db 
CPI a 
Jz FC.TSTT 
* SEE IF MORE TABLE ENTRY TO COMPARE 
NC AM 
ANH AR 
Jz FC. Bye 
+ COMPARE Al COMMAND BYTE TO A TABLE BYTE 
LDAX oD 
ey 
JINZ FC. BYPT 
+ BYTES EQUAL, PREPARE NEXT COMPARE 
IH ok 
IH oH 
DCR 
# TEST FOR END OF COMMAND 
JNZ FC.TSTB 
+ SEE IF TABLE ENTRY ALL COMPARED 
FC.TSTT MOU | ALM 
AMA 
JINZ FC. BYPT 
+ BYPASS COMMAND BLANKS TO PARAMETERS 
CALL FC. BYFE 
* STORE PARAMETER ADDRESS 
PUSH =D 
EJECT 
* CHL>D = ROUTINE ADDRESS 
IMM OH 
Mow EM 
IHS oH 
Ncw DAM 
HCHG 
+ RESTORE PARAMETER ADDRESS 
POF 
* RESTORE STACK 


fr 


fe 


te 
res 
‘i he* 


a 


oo 
ae 


GRAM MEME: 


TMS 
THs 
THs 
THY 
GO TC ROUTINE 
ECHL 
THIS 
POF 
POF 
Pt 


MOP 


BYPT 


TEST: 


FOR END 
Ps 


WERE 


“MOWE ASCTI 


tig pa 


TAPE MANAGEMENT — 


THBLE EMTR Ys 


FOUND . 


TURHER < CONT“D 


TRY HEMT CHE 
Bs 

ad 

Fiat 

ey 
FO.MMTT 
H 

FC. TST 
H 

H 

H 


OF TABLE 


Ah 

A 

FC. EHD 

FC. SBDE 

TH COMMA 
ALB 


Tt 


~ 


t 
B 
FC. BYPE 
HOTIF' 
DFC. BMSG 

Be iF 

Wl. RTH 


OPERATOR 


CHARACTERS WERSTOM Ga. &e 


FSGS" 
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PROGRAM HARES 


MF. RTH LDR e 
CFI 
Je 
San 
J 

MA. BLAME MUI 

MA. MOWE Mo 
THs 
IMs 
DCR 
JHE 
RET 

+ EL-—MA. 

* SLM. 


TAFE MANAGEMENT -— TURNER < 


SE 

MA. ELMER 
iv rt! 

MA. OWE 
A A 

2 

Hi 

Et 

MA. RTH 


STL “MOVE STRIMG 


EJECT 
MU. RTH LDF Hs 
Mow 
IMe 
This 
DFE 
Be 
RET 
* ELM, 
+ So-P Ls 
Si “PROCESS 
EJECT 


EB 
ht. RTM 


IHTERRUPTS 


* TEST FOR CTL-c 


PIJETH LDA 
FL 
RL 
PLC 
Fae 


Ci.CTL 


* GOT CTL-C. WARM START 


LHL 


'S. STAK 


HADKROCE> <UOKO2<L> TT 


COMT OG > 


BY's ROM TURHER 


VERSION G8. 88 Poe see 


M's ROM TURMER 


VERSION GG. G8 Poesis. 


We ROK TURMER 


PROGRAM MANE: TAPE MANAGEMENT - TURHER < CONMT“D > 


#* SL-PS, 
STL “PRESET I-0 OPERATIONS VERSION Ga.ga Treazza- 
EJECT 

# BY: ROM TURHER 

TAFE STATUS 

COMSOLE STATUS 

FFIM—& UDVEC+S 

STACK POINTER STORAGE 


= 
“Tl 
ame 
+ 
iT] 
eae) 
Bas 


a 2 i Se | 


TE LW ud 


3, TOS 
PN Bs | ee 
SPACE, 2 
STORE STACK POINTER 
oe ETH LHLE FS. STAK 
pic AH 
CRF ie 
JIHE PS. MODE 
DAES SF 
a | PS. STAK 
+ GUAREMTEE GUT OF MObDE-SET 
PS.MODE MUTI A. 210 
OUT PS, Cost 
SHIT PS. TPST 
* FORCE THTC MODE-sSET 
PT A. 1a 
CHIT PS..CSST 
OUT PS. TEST 
PIT Aeiiec 
CIT Son Gee | 
CHIT PS. TRS 
* ERMABLE CONSOLE OUTFUT 
PIT Ai. 27a 
CHIT eS. CSST 
* SET UF COMSOLE IMTERRUPT ENTRY’ FOINT 
WIT A. SES 
STF Pu DOS 
LMI H.CILETH 
SHLD PS. TOS+1 


a" 
': 


7 
{ 


eee 


i 
Wt 


COMSOLE VERS TOM Gel, GE Peet ~ 


a BY: ROM TURNER 


PROGRAM HAMES 


BC CEST FC 
CeS7T Et 

SPACE 2 

*& SER CUTPUT 

Pet. RTH SRA 
Mew! 

MUEUE 
FLUSH 
Last 
Pc 
AIA 


iZ 
at ee 


* TEST 
Rt. CRE 


‘Se 


RC. NWYET 


+ DATA IM QUEWIE. PROCESS 


DI 
* DECKEMEMT 

DOr 

Pac 


THN 
Men 


* SHIFT REMAIMING GUEUE BYTES 


RC. SHE T Dr 
Th 
THE 
hic 
Dts 
hci 
Tes 
JF 
EC. HABL = ET 
Par 
Sanh cal Se 
* TEST BYTE FOF 
Ace 
JH 
Si eal 
"LTT 
* STORE BYTE 
Bow STR Mo 
* TEST BYTE FOR 


IH 


TAPE MAWAGEMEMT — 


QUEUE 


ADKROED <Uoeoes 


TURHER <= COMT B 


SF z0 CONSOLE 
BPSC COMSOLE 


DATR 
STATUS 


A 
FOR PRESENCE OF DATA 


A 
G. 
2E 
H 
HCL. aS2 

Ae 

A 

RC. MYET 

PIRST BYTE FROM QUEUE 
SIZE. {D> = QUEUE SIZE FOR SHIFT 
rf 

DF 


FIRST BYTE FROM QUEUE 


H 

Fis fd 

LEFT ONE 
ie 

RIC. MARL. 


LOWER CASE. 
iF Sc 

RC, STRE 
igi 

RC. STRD 


COMVMERT TO UPPER 


D1 A 
CARRIAGE RETURM 


MROGRAR MANES TAPE MAMAGENEMT ~- TURMER < CONT 


aS Lat 
Jz Bim, Doe 
: TEST BYTE FOR BACKSPACE 
eT PG 
JHE Hi. Pats 
*& TGHORE BYTE IF Wo DATA TO BACKSPHACE 
rt Ai 


. RC. SKIP 
He TGMORE BYTE ITF COMTROL CHARACTER 
BO. PSs CPT a 
Pid Riera 
“+ IGHORE BYTE IF END OF TRREGET 
pow Fi. Et 
MrdFt i 
ie, Ret, CE 
*& MOVE BYTE TO THE TARGET 
rag MeL hia DS 
THs H 
so E 
bf is 
eee | ORL. Feit. ECHO 
SF Fe, CRT 
“+ OWE COMPLETE. LIME FEED AMD RETURH 
Mra SEL 2 | cage | Bl, ECHO 
oot JD. Lats 


EC ISOLE. ENTRY: (Do = BYTE 
BC.ECHC TM RCO. CSS 

Pat fe at 

mice dae a 

CHL! A. Ey 

OuT rt, CST 

RET 


to 


* ESD) TAPE RECORD VERSION 8, GE Pam 
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fH Uses G> 


PROGRAM MARES 


EIECT 
of: 
RT. TPC 
RT. FEST 
RT es SreS 
RT eed 
BT. Ley Er 
BT. CRSP 
FT, ERR 
re CPPS 
Bis hia 
Polaris 
SPACE 2 


EGALt 
Erin 
EmLi 
Etat 
EG 
EG 
Ets 
DE 

DE 


os 


* SAME TARGET 


RT. RTH 


* SET UP 


FI on | Ue = 


* MOWE FORMAT . 


PLUSH 
PLISH 
TAPE 
Lag 

SHLD 
DATA 
CALL 
PCH! 


Por 
rc 
STAs 
THs 
hi 
STR 


THY 


TAPE MANAGEMENT - TURKHER 


MED <WICODSL> II 


é COHT“D > 


Mie ROM TURMER 


4qRe eA 

483 1A 

“TAFE PARITY ERROR’. L5G. 12c 
“TGHORE? eto 7 

1 


LEHMGTH. TARGET ADDRESS 


Es 
H 


CANCEL ADDRESS 


Ho kT. ABT 
RT. ERR 


LEMGTH. “Do = FORMAT. “Eo = SEH 


RT. SRS 
Loh 
SEG AMD DATA LENGTH TO TARGET 


rh 
— 


= ff 


MOM DM mpm oo 
fe 


mm 


* IF MEMORY IMAGE. ADD 4 TO DATA LENGTH 


hai 
Sr dT 
CFI 


JHE 


Fa [> 

LP ra 

a: 

PT. HORE 


7° 


PROGRAM HAMES TAPE MAMAGEMENT — TURHER «< COHT“D 


red te] Red brent 


woe te oe 


HES OH 
= DATA LEHGTH 


A | OBCHG 


1 Be 


4 SHLD <-> TARGET. <BC2 = TARGET LEHMGTH 
PLUSH 


* TEST FOR EMD UF DATA 
RT.TEST Mow ALD 
E 


die FT. EMD 
“4 READ A BYTE OF DATA 
Ales eat enol echt 
ribs MM. A 
CTs [a 
& TEST FOR EMD OF TARGET 
Po ALE 
RF & 
ee eb, CES hp 
ee i 
THs 
Se Rites? 
4 CALCULATE THE CHECK SUr 
fe Bee eles GALL eT. 2B'T 
4 TURE OFF THE THRE 
BRL Fi 
GUT Pr. TRE 
* TEST THE CHECK SUPT 
LLL ET. CES 
Pin FH 
CRA Bs 


ing 


Bi is 


mi) 


HERE COMERS) CRE. ALERT OPERATOR 


1GG 


CHRUDKGS <SPCORE MM TECWESAR REE? <UECODSL TI 


a) 


PROGRAM HANES TAPE MANAGEMENT - TURHER < COMT“D > 


LSI DRT. CMSG 
MIT B.1i9 
CALL WC. RTH 
CALL AC. RTH 
# REQUEST OPERATOR RESPONSE 
LI DRT. IMSG 
MIT BE. id 
CALL wWC.RTH 
LI HRT. RPLY 
MIT EB. d 
CALL RC.RTH 
LDF RT. RPLY 
i 7 wae 
RE 
* HEGATIVE RESPONSE. CTL-C INTERRUPT 
LDF CI.ctL 
Cre T PACH 
a STA CI CtL 
LHLD CI.UIHT 
POHL 
* EL-RT. 
* SL-SL. 
Gr “SHIFT BITS Lert WERSIOCM GG, 0@ Peaneo 
EJECT 
« TURK OFF CARRY BY: ROM TUPHER 
SLLRTH AHF FY 
SL.SHET MCW Fy. Pt 
FIL. 
MHS M.A 
THY H 
Dink Ee 
THE SL. SHFT 
RET 
* EL~SL. 
#* SL~WC. 
STL “WRITE CONSOLE WERSION 80. Ga Feemeg 
EJECT 
“ aye ROM TURNER: 
WO. CSOT EOL F200 COMSOLE DATA 
WoL CSST | EGU PRG CONSOLE STATUS 
| GPace = 
a 
1G1 


SHEUSG> <SecOe PoC Teese RSS E> SUSKOReL> ITT 


PROGRAM HAME? TAPE MAMAGEMENT -— TURMER < COMT“D > 


+ TES) FOR Cil—s 
Wn. FETT LBA sd GPa ff 
Firth: 
ae Wil, FTTH 
m TES? POR Ofleb 
RF Pe 
ae Wit, SRIF 
*& TEST IF DEWICE READY 
We WRT oT We ST 
PIFIFE 
JHC Wit, WATT 
4 WRITE A BYTE OF DATA 
LHP ie 
IT kit. CSET 
Wi SE TP TA (3 
Daft Es 
JHE Wit, ETH 
FET 
se EE hi, 
se Sb LT 
SY “WRite TARE RECORD HERS TOM Ge Ae PS 
PIE 
oa Bye ROM TURMER 
iG Tie at EGHt ori TAPE CONTROL 
WT. FEET So a esta TAPE ERROR ROUTIHE 
WT. SEM! EH SS1VA WRITE 2 BYTES 
We. Tey EGU Sat WRITE 1 BYTE 
WT CREP)  EGHI $02 FA TARE CHECK SLIM 
i * El 4GG3 1A -> TAFE ERROR ROUT THE 


TAPE CANCEL ADDRESS 
LI Ho WT. ABT 
SHLO WT. ERRM 
« SET UP TAPE CONTROL. 
MIT Flat 
CLIT WT. TPC 
* WRITE 32 SVMC: CHARACTERS 
MYT 
IT ; 
WT.SNEHCG CALL WTOIENT 
ocr i 


192 


o 


SHO<USCG> 6<5 


PROGRAM MAME t 


JMS 


oS. OS4F 287 oC CASA ROE 


TARE 


WT. SYR 


* WRITE STs CHARACTER 


PHIT 
CALL 
EJECT 


4 ZERO CHECE SUM 


PCI 
SHLD 


Ase 2 
WT. TET 


Low H 
WT. CRT 


*# WRITE FORMAT AWD SEQUENCE HUMBER 


PIT 
LDFH 
CALL 
THe 
Dre 
JHE 


WT. FMS 


* WRITE DATA LENGTH: 


LOAM 
hycwd 
CALL 
THs 
LDF 
ci 
CALL 
THM 


B. 2 

[TS 

WT. 1BYT 
ct 

a 

WT. FMESG 
fH? = DATA LEHGTH 
to 

H.-A 

WT. TBYT 
to 

[Ts 

LsA 

WT. IBY T 
to 


* TEST IF ALL DATA WRITTEH 


WT.TEST MoU 
ORF 


JZ 


AH 
[ie 
WT. CSUe 


* WRITE A BYTE OF DATA 


LDA 
CALL 
THE 
DH 


MF 


* WRITE THE CHECK SUP Ss 


WT. CSUP LHL 
CALL 
it S| 
MRA 
OUT 


RET 


fb 

WT. 1BYT 
{2 

H 

WT. TEST 
TURM OFF THE TAPE 
WT. CKSM 
WT. 2B T 
WT. 2E'T 
Fy 

WT. TRC 


MAMAGENENT -— TURMER < 


arco stl > 


ii 


COMT “Er > 


183 


Sue Ge See OP ee eee eo oe OT 


PROGRAM MARES THREE MAWAGEMENT - TURMER < COMT"D 


fa BY ROM TURHER 


He CURT 
t 


SRL CURT ORT EMEE! 
CPI 720 


i SH. LOWE 
fT rae 

cit hts FA 

Hie Fal 


= J 
Lot 


HL. LOWE 


Set ee aod 2a | 


SPAHD To OCTAL ASCII WERSION Ge. oa PSersey - 


LDRA tm Ms ROR TURE Pe 
ART SEE 
et Be 

ca Oe 

CALE rm. CURT 
LDOAS i 

AMT ste 
RRS 


tot] 
ee 


GAEL re, Clik 
LOA oD 
FP Pe 
CALL #0. CURT 


1@4 


SHEL USeG> 


PROGRAM HAE: 


THis 
RET 
AO. CURT ORT 
i Le 
THA 
RET 
4 EL 70. 
* SL~ZM. 


SS 2c OSCR oC Tele AS ROC E> 


0 


BEI! 
Ms A 
H 


STL “2ZERU MEMORY 


EJECT 

2M. RTH MIT 
IMs 
Dk 
JHE 
RET 

* EL—2M. 

* SS-TAPEM 


MH. 

H 

Ei 

2M. RTN 


STL “STORAGE AREAS 


EJECT 
THELE ECiLl 


o 
“CORY «8 
MOF" 
“READ . 
REAL 
“LAISiGQ 22 
LIST@ 
“LISTA’.»& 
LIStyx 
“WRITE” .6 
WT TE 
ae 


LABE 
“DUMMY. 
ELM pt ys! 
“EOE < .@ 
ECE 

‘SEQ’ .G 
SEG 

cy 


MERS TO Get. Ete 


BY: ROM TURNER 


VERSTIOM GG. Get 


QUSCOeCL> 1 


TAFE MANAGEMENT - TURHER < COMT“D > 


PSe21lr” 


FROGS - 


1G 


OME THC ARR OCE? <UOCOOKLD OTT 


PROGRAM HAMNE: TAPE MAMAGEMEMT - TURKHER < COMT“D > 


TPLNTH 
LNFEED 
PROMPT 
DONE 
FMTMSG1 
FPMTMSGZ 


RECMSG 
HOLE, 
PEED 
LBLEt 
EQFMESG 
CPYMSG1 


ASEMTHE 


ASSES 


BF a get Oe 
SEPT CLM 
EJeGE 
HLPMSG1 


HLS ist 


HLPMEGS 


MlLPSiz2as 
BI MF MTH 


Se 

iz 

“COMMAND? 
“DOHE. WEST 7 
“FORMAT = i 


#1 


“RIE C= 7 

“HO LABEL * 
13th, 120 
“LABEL =~ 
“=sEOF". 13M. 12ti 
Lath, 120. “ERROR: BUFFER FORMAT= % 
xm 1 

“  RECH= = 
| 

tao. 12m 
+-CPYMSG1 


Car nd 


“READ —- READ RECORD INTO BUFFER” 
LEG. L2c 
“WRITE — WRITE RECORD FROM BUFFER~ 
LaG. 120 
“COPY MH = COP’) "HY # OF FILES” 
ISG. 120 
“LABEL CCC — WRITE LABEL CCC 
15a. L2c 
“DUP Ho o- WRITE DUMMY SEH H- 
150, 120 
HL PMS 1 
“EOF FFF S55 —- WRITE EQF FMT SEQH#’” 
La. 120 
“SEQ Ho - CHAWGE SECH Ta He 
Si, 12a 
“ETSTo -— OCTAL DUNE OF BUFFER? 
15G 126 
“Lists - HEX DUMP OF BUFFER? 
1a, L2G, 120 


+-HLPMSG2 


166 


CHOCUSKG> <SoCOeCFeCTOCWSCAOKROCE> <UECOOML> II 


PROGRAM HAMNE: TAPE MAWAGEMNENT - TURMER < COMT“D > 


BIHSEQHN De 

RECCHT BEE 

TRECHT Be 

BIHAR YS 055 

CHSESEM) 5 

CHESEGS EC 

IHFUT is 

CHSL EL DS 

CHSCUuy EG 
Cvs, 

CHSLSE 1. Ett 
DE: 
BIE 

CHSELSES EG 
De 

CHSCHFe tos 

HSER cat 
ERRHS  +#—-CHSCLUT~Se 

PMREC Emu 4H 

CME PT QE et 

DMSEC! BE Gi 

He re a Dud a 

DMBDATA IMS i4 

EQFREC DE GG. Gt. 

TRPAREA EGU te 

TEEMT DE et 

TRSEG! DE al 

TPSIZE Dold a 


SER EMHM F Nh he 
nm | 
_ 


i 
~~ 


i 
— 


5 


(he. 


mo 


SIL “PROGRAM INITIALIZATION VERSION G@.86 Freates” 


EJECT 

TEDATA CALL PS. RTH 

* ESTABLISH USER IHMTERRUPT ROUTIHE 
Lisl H.FI. RTH 
SHLo CEORIUE 

+4 CALCULATE MAS IMUM BECKED LEMGTH 
List H. BSS S—-TRPAREA 
DAL SF 
SHLD TPLYHTH 
Leal fi. TPLHTH 
Lisl H. REDE S2 
PST Eta ie 


PROGRAM HAMEs 


mT 


CALL 


TARE MANAGEMENT — TURHER 


< CONT-D 


ao ges 
Reranact 


Ec. RTM 


* DISPLAY PROGRAM TITLE 


i 
Lind 


PIT 
CALL 


ts TLTLE 
ES ELLE se 
LW. ETH 


* RE-ESTHELIGH COLD STHRT 


Lid 


RET 
TITLE Et 
IE 
oad 
DE 
OE 
DE: 
RECS ae Em 
TE: 
DHS 
[aE 
i) 
TITLESS Eu 
EMD 
# ES=THREM 


Hy PS. RTH 
CL Le 


“TAFE MAWAGEMEMT FOR H-&- 
LSG@, Len 

“BY: FCM TURKHER 
ml. Lee 
“UERSTOH GG.8S EFFECTIVE Freeeeai < 
LEG. 120. 120 

“MAR IML PERMISSABLE RECCRE 
“LEHGTH I5 

i] 

Ht. b2lt, 1L2c 

“ERMTER Fi GUESTIOM MARE o> 

“FOR COMMAMG LIST? 

1S. let. Lao 

#~—TITLE 

START 


STAMFORD IL 


183 


CHMUDG? <SPCOMFRMTOWOSADCREXED <UEKOOKLD OI 


PROGRAM HAME: See DISASSENBLER —- SHIFFRIH 


TITLE “PGML — DUMP“DISASSEMBLER PROGRAM 
STL “THITIALIZAT IONS TMPUT CODE ~ 
wt DUMP DISASSEMBLER PROGRAM FOR H& “S000 SYSTEM 
4 DERIVED FROM BASIC PROGRAM PUBLISHED IN REMARK. ISSUE 2. 1978 
wk COPYRIGHT 197&. J H SHIFFRIN 
PGM1 ORG LSB 
L¥I H.CTLE GET ADDRESS OF CTL-C ROUTINE 
SHLD FOS1C AMD STORE WITHIN CONSOLE DRIVER 
CALL $PRSCL SET UP CONSOLE 
TART LHI SP. STACK INITIALIZE STACK POINTER 
LYI H-PRMPT POINT To PROMPT MSG 
MIT B.LPRMPT LENGTH FOR LOGF 
CALL PRIMT PRINT THE PROMPT MESSAGE 
* PROMPT MESSAGE ISSUED. HOW READ MEMORY LIMITS 
LMI H. Lou IMI TIALIZE 
RDLF A LI b. G 


ir 


4 
MT ree PFLAG TO BE USED 7TO FIND FIRST DIGIT 
een EB. & 
RDLF CALL FRCHAR READ OME CHAR 
CPI OF 
Rod RDEME EALT fr CF 
CPL COMPRA 
JHE SKIP 
* EMD OF FIRST HUMBER. STORE IT AWD DO HOUSEKEEPING 
cn TERE TEMPORARY SAME 
PIT Fle HL GET LOW! HALF ADDRESS OF Lok 
MF iS DOES HL STILL POINT TO LOW 
JHE ERR: HO. THIS i5 HOT THE FIRST COMMA. RES 
EE it 
LDF TEM RETRIEWE CHARACTER 
CALL FUICHAP: ECHO COMMA 
CALL STORE GG STORE DE TH “Ett: 
Ths te POIHMT TO “HIGH 
MF RDLF 1 GO GET HEXT NUMBER 
SEIF STA TEMP 


Fe TOO MAMY DIGITS 


“Fe HUMBER TOO SMALL. 


1@3 


PROGRAM HAMES 


wet THE F 
ak Fy 
ave LAT, 


MOT LST 
FIRST 


MHOTCE 


2 ol 


CALL 
“CHG 


FLESH 
Hoe a 
PT 
NS 
FOF 
ris 
JME 
FOr 
EG 
DAD 


Alt 
bcd 
em od 
JME 
eS | Ba 
PIT 
TALL. 
PIT 
CAILE. 


FOHIGH = 


QLLOW HG CODE 
& AD 
BE TURME 


” 


Lex 


c= SaiPrees & COTO 2 


rae 
ERP 
FUICHAR 


HUMBER TOC LARGE 
ECHO HUMBER 
SWAP DE AWD HL 


SAVES THE FIRST INPUT BIGIT. IF It IS 


DIGITS ARE INPUT. THE HIGH ORDER BIT OF BD 
D OM BEFORE [ 


IS STORED. 


Pod SAWE IMPUT CHARACTER 


Fiat 
tr See iF IT 1S THE FIRST DIGIT 


Ca A SAVE FIRST DIGIT IN C 


EMD OF SAVE CODE 


os | RE 

SWAP BACK 
REMOVE BIAS FROM NUMBER 

AGO DIGIT 10 £ 

DIGIT COUHMTER 

: GO GET WEST DIGIT {OF DELIMITERD 
STORE MOWE HUMBER FROM DE To HIGH 
A. oR 
#LICHAR 
Ala LF 
FUCA 
THE 
eHOGH 
att 


FPRIMT CFs Le 
HALT. 


f 
FPOTHMT Ta HIGH+1 
COMPARE THE Tht BYTES OF HIGH 


Hie IF HOT EQUAL. THEM HIGH <> @.& 


AgQZLDres 


2 


THE'’ ARE EGA. 
HIGH = GGG, aoe, 
SET UP FOr Poss 
POINT To SECCHD 


BUT HOT & 
Stor 

IBLE RESTART 
FROMPT MESSAGE 


116 


SHeSUocG> <SPcOscR ee THWIKASR SMES <USKOSKL > 8 IT 


| 


PROGRAM MAME: S6ee DISASSEMNBLER - SHIFFRIHW < CONT“D > 


PIT EJLFRMP2 LENGTH OF MESSAGE 

CALL PRINT ASK FOR DUMF-DISAS OPTION 

CALL FRCHAR GET AHSWER 

CALL. SUICHAR ECHO IT 

SUT BIC HORMALICE TO AW OCTAL DIGIT 

Jz DLMF IF ITHPUT=8. MEMORY’ DUMP DESIRED 
Cot Fe Ft 

Jé DISAS IF INFPUT=1. DISASSEMBLY DESIRED 
JhF CHOICE BAD IMPUT. Tr’ AGAIH 

STL, “DUMF CODE 


4h THE FOLLCWING CODE WILL PRINT A MEMORY DUMP FROM {Los TO “HIG 
Ho 
«# TH OCTAL AWD ASCII. & BYTES FER LINE. 
DUMF Lisl Hs Litt 1 
ric Fla ht GET HIGH BYTE GF “LOW 
List H. ADDRH 
cry CALL CHET COMVERT TO ASCII AWD STORE IM LINE 
Lit He Lil 
pits Fi. hl GET LOW BYTE OF “LCi 
mice 37a TRUHCATE TO MULTIPLE OF i8t) 
Puc Mo AWD RETURM Tce Lod 
Lisl H. ADD FEL. 
CALL CHILE T COMVERT To ASCII AWD STORE IN LIKE 
PIT B.S LOCF COLIMTER 
LHLD LCtt POINT Ta MENGR'’ AREA TO BE DUMPED 
Lisl oO. 
DAE ©) HL HO! POINTS Ta BYTE THAT GOES AT E 
HO OF LIWE 
LPS pc Fie fd GET A BYTE 
PUSH H SAVE MEMORY POIMTER 
PUSH Ped SAVE DATA BYTE TWICE 
FPLISH Pest 
LM He DATA 4 
eo ALB LOOF COUHTER USED AS POSITION COUNTE 


ee 
i oa TB- Loe 
Mo Ct. A 
RLC 9 a 
ADL 5 KE-1 >: 


T 
m1 
| 
_— 
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SHOCUSEG? SECO POST RCW 
PROGRAM MAME: sece 

ADI i 
L 

ADD L 

mon LoA 


HOG CHI 


fir, 


aoe LINE 


ce AACE 
MOTHER 
ae LIME. 
Eq 
thie 


iL 


CF 


MEMORY 


Pedal 
CMR 


Aa kL 
fed 
ber 
Feshl 
oa 
mae HOG Cir 


ie Lhe 
ai OE 


Al. SE! 
Ie 
H 
H 
EE 
LPS 

FE. HC! 
He LIE 


ey 


JHE 

a8 | oa ea 

ik 
PIT 
CALL. PRDAT 

HOREMEMT Ltd. 


TE Litt & HIGH. 


LILES. 


tcl 


Wie rx hed 
ie 


fo 
GUE 
START 


ol 


LER ~ PRINTS 


By LLIME 


FR 


SE MELE 


DISS 


~ SHIFFRIH < COHT“D > 


CB-12*6+1 — PROPER OFFSET INTO DATAO 


L HC! POIMTS To THE FRIGHT SPOT IN “Lb 


COMMERT BYTE TO THREE ASCII CHARS 


H. DEITRIAS— 4 


POIMT TO PROPER LOCATIOM IH DATAAS 
RETRIEVE DATA BYTE 
iP CHAR IS 
HOT PRIMTABLE 
PEFLACE IT 
WITH A 
PERICLES 
STORE ASCIL IN DATHAS 
RETRIEWE AWD 
THCRENENT MEMORY POINTER 
po Lt s 
Pein? IT. 
POLHT FO LEIHE 
LEHGTH OF LINE 


TIRES 


IP STILL LESS THAN HIGH: GO 10 FORMAT 


RETUEM TO THE BEGIHHING To GET ANOTHER 3 


Loci 
soe We 


LOW + Let 
HEM VALUE BACK 
Sek IF METRE POE 
HOT DOME WITH THE 
DOME. GO SEE WHAT 
ODE © 


TH PERCY 


DUMP. LOOP 
TS To BE DOHE HET 


HHEMOMICS AND ASCIT FOR ALL BYTES BETWEE 
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PROGRAM MAME: 


ask EL TWD A 
DISAS LEI 
PLT 


CLE 


LINE? 
SHLD 
MT 

IHE2 TO USE 

LF4 


TES 


IC i) 


Pact ea 


CHIGH?. 

PM ag Oe 
sLLINES=2 
» Fa 


Hi 


H 
E 
FA 
Me 
H 
Ei 
CLR 

H.» LIHES+2 


LIM 
Al 


Pohl 

he LOD 
Fel 
LIN 

Dy ADDF 1 
D 


CRT 
Fle Set! 
LIM 

»FERD 


whi 


sil 
oft 

Lit 

OG. ABD pe 
ie 

CRT 


GET 
Lik 
Db. ASCII 


JEG 


DISASSEMBLER 


Pond 


HIFFRIY 


CLEAR LIMES TO BLAMES 


BUME POLHTERS 


SEY UP POINTER TO USE FIRST HALF OF 


SET FLAG TO INDICATE WHICH HALF OF 1 


SAWE FLAG 


PUIHT TO SPOT TO SIGRE FIRST BYTE UF 


COMUERT TO ASCII AHO STORE IN LIKES 


ST ORE IH LIMES BETWEEN ADRESS Ey 


GET LOW BYTE OF “Li 


COMUERT AMD STORE TH LIMES AT PROPER 


GET A THSTRUCTION «Oe DATA? BYTE 


PUT ITS 
POLMT TO 
ADC 


ABCII VUALUE INTO LINES 
THE TRUCTICN LEMHGTH TABLE 
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* THTCI 


= 
b= 


ET orco 


MIE 


PUL 


* IF TH 


HAINES 


MIT 
DAE 
PCH 


IMS TRUCTION BYTE 


THELESS 


DE 


ee xy Tiles 


LIT 
pica 
mCHG 
pice 
SCHG 
TH 
Th 
rac Fe 
THE 

ee he 

a oot a Se 
rai 
CRA 


rT 
To 


HR |e 


SHG DISASSEMNEBLER ~ SHIFFRIM < 


b.8 
ts 


| ea Pr 
ee 


H. THELESS 


B 


DO ORC 


H 


Bat 
Fe 


M.A 


ce 


MCh 


Ase 

Fi 
MOORE 
Lik 


COT “Df 


TH FROPER 
OFFSET FROM TABLE 
GET LTHSTRUCTION LEMGTH 


=~ MUST MULTIPLY BY & TO GET ADDRESS OFFS 


Feet. MISE IMTO CARRY 


ROTATE CARRY INTO E 


DO iT THREE. TIMES 
POIMY TG TABLES (DE HAS GFFSET> 


DE HOM POINTS Ta SPOT To STORE OPCOD 


HL HOW POINTS TO SPOT IM TABLES TO G 


TAELES TO LIKES SAT LOCRTIOH OPCODE> 


GET @YTE FROM TRELE 
HL POINTS TO LIES 

STORE BYTE 

HL POLHTS TU TABLES 
THCRENEMT POTHTERS 


MULTIPLE BYTE INSTRUCTION. HAMDLE THE OTHER BYTES. 


RETRIEVE LEMGTH 
HECK FOR ZERO 
AR JUMP TF SER 
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SHMURG> <SIMORCPRCTHCWOCARKROCED <UDCORELD TI 


PROGRAM HANES S858 DISASSEMNBLER ~ SHIFFRIW < COHT“D > 


SHLD ASC: LOCATICWN FOR ASCII OF NEXT BYTE 


SL 03 BVTE LOCATION FOR OCTAL OF HEXT BYTE 
BYTEZS CALL GET GET BYTE 

LHLE ASC POINT TO SPOT IN LINE 

CALL. PCG MOUE BYTE TO LINE CASCItT> 

LIL BYTE 

CALL CHET MOVE OCTAL TO LINES 

LHL ASC BUMF POINTER FOR HEAT BYTE 


LHLD EMITE BUMP OCTHER POINTER FOR WEXT BYTE 


CuIRE ‘ie 
mB i Fe BY TESS JUMP BRCK IF THERE IS A THIRD BYTE 
“4 DCME WITH THIS HALF OF LINES. IF IT°S THE FIRST HALF. INCREMEN 
T POINTERS 
“4 AM GO FILL IW THE SECOMHD HALF. IF IT’S THE SECOHD HALF. PRIWT 
THE LINE 

*# ARID CHECK TO SEE IF ALL. MEMORY HAS EBEEM HAWDLED. HOTE: BISAS ll 
TLL ALAS 
* PRIWT FULL LIHES. AMD MAY PRINT ONE MORE INSTRUCTION THAW FRECHE 
“FED. 
MCRPORE LILES LIX THCREMENMT LIMES POTTER 

Lal [os Spi 

DAL to 

SHLD Lik 

Por Pell RETRIEWE LINE FLAG AWD SEE WHERE We 
ARIE 

THF A A WILL Hol! BE @ IF LINES IS HALF FLL 


Jz LP IF $0 GO DO IT AGAIH. 
* LINE IS FULL. PRINT IT AND SEE IF IT 15 TIME To GUIT 
LHI H. LIHEZ 


EJECT 


ah PRIMT — 
Hel POINTS Te 


wok A COMTAIMS EVTE. 


EM 
FLPSH 
i ae 
mine 
BL 
FLC 
AT 
hc 
THs 
aie 
ART 
pep 
FRC. 
FERC: 
ADT 
hen 
HAs 
hrc 
ArT 
AGT 
roid 
Pate 


IEE T 


- SUBROUTINE TO COMMER T 


‘LER SHLPPRIM = COMP D> 


B.LLIMES 
FR IMT 
Lhd 

CHF SEE IF WE-FRE DOHE 
DISAS Hilt. Lame 
START eis (SC 
“ SUBROUTIHES 


SEE WHAT IS TO BE DOME HEXT 


SUBROUTIME TO PRINT ASCII TEXT. 
TEXT 


EA CHARACTER COUNT. 
GET A CHARACTER 
PRINT IT 


HAS 
Fis f4 
#$UICHAR 

Hi 

a 
FRIAT LCF 

A BYTE Fa THREE ASCII 


Hel POIWTS TO DESTINATION FOR 


+ 


ted 
fet 
mt, 
, 
) 


Cory OF Byte 
ISO nTe LEFT = Sits 
OWE TO OTHER 
EMD OF HA 
ci MARE IT ASCII 
SIORE FIRST DIGIT 


RETRIEVE BYTE 
GET MIDDLE 3 BITS 
MOWE Te 
RIGHT EMD 
Gr 
ct MARE It ASG 
STORE PIBPLE DIGIT 


Fle ES 
Bera Get RIGHT 3 Bits 
a MARE IT ASCII 


STORE LAST DIGIT 
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SHPU2CG> SORE RC THCMICADS ROSE UCL II 


oO 


PROGRAM HANES S8oG@ DISASSENBLER — SHIFFRIW < COHT “Db > 


RET 
ek STORE — SUBRCUTIHE TO STORE >.E IM MEMORY CIM REVERSE ORDER? 
STORE Maw PE STORE E AT LOC FOR Loe 
TH H 
Mit Al. [> D WEEDS TO BE SHIFTED BACK OWE BIT F 
TIGHT 
RAR 
recat D. A 
CF E IF B GOES NEGATIVE. & DIGITS WERE IN 
PUT 
JF MOAB JUMP AROUND IF LESS THAW & DIGITS IM 
PUT 
Mou AG 
AMT 
RRC 
Pap MOVE BIT TO MSE POSITION 
i BB — 
ry Mct! 0. A RETURH BYTE TO THE © REGISTER 
HORDE MCW M.D STORE CONTEMTS OF D IM MEMORY 
RET 
e+ GET - SUBROUTINE TO GET A BYTE AT «Loto. THEM IMCREMEMT «Loko. 
we USES DE. RETURHS BYTE IH A 
GET LHLE Lid - POINT TO DATA BYTE 


hs XD 


SOLATE PROPER BIT 


DAD — THCREMEMT POINTER 
SHLD Lk SAUE POTTER 
RET 
oe PUT - SUBROUTINE TO PUT ASCII “OR ~.° IF ASCII IS NOT PRINTAGL 
E> 
INTO LIKES AT LOC SPECIFIED BY HL. 
PUT PLSH Psd SAVE OGRIGIHAL BYTE 
CPI cea Is IT < 480) (SPACES 
Je HEEDFRE 
CFI 1480) iS oT oe Co 


HEEDPR MIT Ae Se HON-PRIMTABLE CHAR. USE “2° 
Po od Me FA 
Par Phd RETRIEVE ORIGIHAL BYTE 
RET 
ack CMP - SUBROUTINE TO IONRFARE THE CURRENT UALUES OF SLtkdo ARID fH 
TGH> 


Fri Prarm: 
rat 


Cries 


MRGRAPT MPME S 


vere SET ORBIT Tel? 
tia OS Ds ee hee ee 


© HIGHS 


pe by bite 
Leg Gt 


wh ERR-ROUTIME TO SEND 


A Ms 
LHL D 
PO 
PF 
be 
ee 
CMF 
byes 
DAES 
RET 


CHARACTER 


oh ERR 
RE THAH 


Ls 


EB 


Hi. 


CALLED WHEM A HOM-DIGIT CHARACTER IS INPUT. OF 


ed dled 


WARE <UL OTT 


a DLSASEeNELER - SHIPPER 


Al EXOT. THE CAREY FLAG IS Set IF «LOW 


MOWE SLOWS TO DE 

GET “HIGHS IH HL 
COPY MSE OF CLO 
COMPLEMENT IT 

AMD RETURE TO Dp 
COP LSB OF <LOW> 

COMPLEMENT OT 

AHO RETURH To E 

EGUIIWALEMT OF HIGHS -— «LOW 


To COMSOLE AWD RETURH TO READ ANOTHER 


WHER Ma 


fet DIGITS ARE THPUT FOR AM OOTAL. UALUE, 


ERE 


i OB 
THTERRUFTS AME 


Mette 
Gages & 


a 


test} et he “ag 
a FY 


PIT 
CALE 
JF 


- ROUTIHE TO HAMDLE COMTROL-C IMPUT. 


El 
INE 
ST 
EJECT 


Fis 3 
SUICHAF 
FIDL 


RIHG BELL 
TRY AGRI 
IT SIMPLY REEMABLES 


RESTARTS THE PROGRAM. 


SARE 


ENABLE ITHTERRUPTS 
RESTART PROGRAM 


“DATA AHO COMSTANTS 7 


AH COMSTAHTS see 


ene 
ml 


EEL 
EH 
Ei 
iS 
BS 
Ped 
emt 
Er 
Pkt 
Em 
Cifs 


Emu 


BSS aA 


Bedi] SSA 
Bee is 


ie “5 i 


SPOT 70 STORE ADDRESS OF CIL-C ROUT 


COHSOLE SETUP ADDRESS. 
READ CHARACTER ROUT IME 
WRITE CHARACTER ROUTIHE 
LO! MEMORY’ ADDRESS. 

HIGH NEMNORY ADDRESS 


mee. ERTER LIMITS I OCTRLS 


CELE. “ENTER @ FOR MEMNCRY DUMP. 1 FOR DISASSEM 


°F RMP TS 
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CHYCUDKG?  <S3<0< 
oO 


PROGRAM HANES See DISASSEMBLER - SHIFFRIN «< COHTD - 


TEMP DS i TEMPORARY STORAGE 


LIE 
ARDRH 


ADDL 


DATAOC 


DATAAS 


LLINE 
LIES 


LLIWE? 


* THE FOLLOWING EQUATES 


ADD 1 
PERD 
ADDR 
OP CODE 
BYTEZ 
BYTES 


DE i 


DE $e 
Ett toh THE 
DE CR. LF 


BS vo 


Emu *#-LIHES 
Emu E 
EGU 
EG 
Emu 
Eu 
EG 
EG a2 


DS af 


— 


ft 


“athe 


fabir ft] 
Tm ha 


ARE USED 


PRINT LIME FOR 


ADDRESS 


TQ POSITIGNW ITEMS 


DISASSEMNBLER 


WITHIM LIKES 


RRER IH LINES TO BE 


AEC DS = HOLDS ADDRESS FOR HSCII OF BYTE“H” « 
co a 
BYTE DS 2 HOLDS ADDRESS FOR OCTAL OF BYTE“N” ¢ 


* QTABLEI+1I° = LEHGTH-1 OF IHSTRU 


Sit “TABLE OF INSTRUCTION LEMGTHS” 


EJECT 


CTIOH 


1 
i 


1 


7 


Te 
THELET DE: A. 2.8.8.8, 8.1.8, 8.8.8.8, 8,8.1.8 6G - G1Y> 
DE 2.8.6.8, 6,1.8,6,8,6.6,8,.60.1,.8 “820 —- Garo 
DE: sae 2. Gs GG 1.8 GQ. 2.8. Be 1. Cee - BY 
1G. GB 2. Es A RE - Bee 
a Gh a e 


OE 


_, 
Wi 132 
ioe 


DE 


mi mi & 


= 
a: 


Si 
Gi 
DE Gia a 2 Ee 
a i 
re 
ei 
ii 


Rm 


mi Ga 


Re ed er a 
een ee Sue ce 


si 


—, 
a! 


imo a mee ee pe ee 


tit 


ae EP pe 


BM et et Re ee Em me 


— 


anh 
fon 
nt 


bet 


Gy e 

Ga ot, Et, as i, Gt a oy 
DE 1 Gt, Bt | 6B GA BB, BB 46 —- Lar 
i ss Gis Gy LEELA Eee Cee - Lo 
DE SG . E, SEL EL EL EL EE BB CRE - SLPS 
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ae 


PROGRAM WAME: See DISASSEMBLER - SHIFFRIM «=< COHT“D > 


bE ~ 237) 
De ~ 277) 
a - 317? 
DE ~ 337) 
DE - 357> 
DE Gs Bab 2.8.4, - B77? 
Sk AST al MME: er 4 I cS : 
EJ 
« TABLEZ ~ EVTE EMTRIES. OWE FOR EACH INSTRUCTION 
TABLE2 DB LHI B STAN & INH B IHR B DCR B MUI 
E PLC 
be “MOF DAD B LDAS & DCH B IHR C DCR C Mur 
c FR . 
DE “HOF LHI > STAX D INS D IHR D DCR D MUI 
Db RL 
DE “MOF DAD D> 6 LDA D 6oDCH D  6oIHR E DCR E MUI 
E RAR t 
DE “HOF LMI H SHLD Ine H IHR H DCR H MUI 
H | DAR : 
bE “HOF DAD H LHLD DOM H INR Lo DCR LO MUI 
LCE ’ 
DE “MOF LMI SP STA IHM SF IMR M DCR M MUI 
H sT¢ ‘ 
DE “Nor DAD SF LDA PCM SF IMR A DCR A MUI 
a OMe ‘ 
A MOU BLE MOU ELC MOM B.D MOU BLE MOM BH MGW BL MOU 
BoM MOU BLA ¢ 
MOU C.B MO CC MOM... Moy C.E MOV CoH MOU C.L May 
CoM MOU CLA 


bic | 
i 


Sad oe 


Mou 


mie 
Paces 
Pus 


pir 


“Tc 


& ffl © 


“ren 


— = 


“Td 


far riot fo 
mf 
s 


st kt 
Tm. 


Le 


“HCW 


i 


aes 


oh 


Ens 


a 


“Pts 


~ PT 


Tr 
hi 


eu 


: Pe 


pic 


i 


PCI 


row! 


Ce Rae (0 


AS NW 


i MGW 


> Pd 


i ES 


2 PCH! 


DD 
Ef 
H.f 
LD 
MD 


AD 


hic 


Mow 


ren 


Mon! 


Mind 


pci 


DE 


E. 


mom om 


rcHJ 


raw 


ric) 


Mow 


howd 


hie? 


Mow 
Mow 
Mout 
Maw 
i 


Mons 


Dol 


Mow 
Mow 
howd 
Mow 
HLT 


Mow 


FROGRAM WAMES See DISASSEMBLER — SHIFFRIY 


DB “ADD B |) Abb 2 ADD 
iE “ADC E MDG fs ADC Dp ADC: 
Et “Sipe Ey SUE SUR — ot 

DE “SEB E SEB C SBE D SBE 

DE “RAMP AWA AWA > AA 

DE “HRA OB ca Sod os i BEA OD BRA mRA LL. SRA 

ry SRA Fl Zi 

DoE “QRA E CORA 

ry CRA Fl s 

DE “CMP B ChE C CMF D CMF 

r" CMF A as 

[Es “RS FOF E JHE JTF CHE PUSH & ADI 

RS - 

DE “Re RET al Ps HCIF (2 CALL ACI 

RST 1 a 

DE “RHC Por 0 JHC CT CHC FUSH D SUT 


ct 
2 
A 
ali 


AD ORF ORAL. ORA 


mm mmm mm mm m 
i 
i 

ie pe a ees A ian ae 
iz 
1 


CMe ob Cri’ 


DE “RC HC" IC TH Be MOF SET 


DE “RPC For A JP “THE CPC PUSH H AHI 
RST 4 id 
eee PCHL JPE ACHG CPE Hor mare] 
RST 3 
DE “RP POP PS JP OY EE PUSH FPSWCr I 
RST 6 % 
De “RM SFRL aM EL CH HOF CFI 
RST F s 
STACK Ett e+ PE! LEAVE ROGM FOR THE STACK 
EMD FGM] 
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RHSUSKGS> <SSKOSP SCT MWA RECESS «6<NSKOSLS 6 


PROGRAM HAME: CCS SUPPRESS — MORGAH 


TITLE “COMNMAHD COMPLETICW SUPPRESSING COMSOLE DRIVER” 
EE COMNMAWD COMPLETION SUPFRESSIMG COMSOLE DRIVER 


oe EB’? MICHAEL WILLIAM MORGAH. AUGUST 197s. 


+ 


THIS COHSOLE DRIVER WILL SUPPRESS COMMAMD 
COMPLETION EY AY PROGRAM WHICH USES THE He 
CONSOLE DRIVER. THE PACKAGE PHYSICALLY 
REPLACES THE He COMSOLE DRIWER IM MEMORY. 
REGQUIRIHG HO ADDITIOMAL MEMORY. AMD TS 
COMPATIELE WITH AMY PROGRAM WHICH USES THE 
HS COMSOLE DRIVER TH A MORMAL MAMHER. 


+ 


MUCH OF THIS DRIVER I5 A COPY OR REVISION OF 
THE HS COWSOLE DRIVER. WHICH I5 COPYRIGHTED 
BY? HEATH COMPAHY. BEMTOM HARBOR. MI. 


CONSTANTS 


a MACHINE INSTRUCTIONS + 
MILMUTA Et ea aa PIT Ae 

MI.SUT ECW SSE SUT 

MI. IMF EG SES! JF. 

+t ASCII CHARACTERS = 

BELL Ea ra Rei. 

ve BITS: 

ECHOED EG SBE! $CHAR HAS BEEM ECHOEPD. 
Me LOCRAT TCHS & 

LTE EG 4HG37R USER THTERRUPT VECTOR. 
INTERIT Ett SG] PSA INTERRUPT EXIT. 

Br 

fe 

et USER PROGRAM ENTRY POIHTS 

sd 


LOCATICWS 4816GF THROUGH 40165 ARE USED IH 
THE SAME MAMHER AS BY THE HS COWMSOLE DRIVER. 
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SHOSUSG> LSP OPER TOC SK AS RECE> <URL> IT 


PROGRAM MAME: CCS SUPPRESS — MORGAN < COMHT“D > 


stake PORT FCUTIWES 


ae LOCATIONS 4+8106R THROUGH 441435 ARE USED IH 
a THE SAME NAWHMER AS BY THE He COMSOLE DRIWER. 


ECRIM EG 
SOOT El 
BOL aL EM 
OT SC EH 
TES J ECHL 
ETEQUIT Ett 
Met 

eo 


fm 
— 


a COWESOLE DATA IH. 

A COMSOLE DATA OUT. 

FY CONSOLE INPUT STATUS IN, 
Fl COMSOQLE INPUT STATUS CLIT. 
Al 
Fi 


ra 


a 
Fresh fen feeb pint jones fone 


= 
a ee 


CONSOLE OUTPUT STATUS IN. 
TAPE STATUS OLIT. 


BREE EG 


Ga 


ORG  4éidde 


REMOTE ENTRY POINTS 


LIMAT IONS 46445 THECUGH 48154 ARE USED IH 
THE SAME MAWMER FS BY THE H&S COWSOLE DRIWER, 


JF FRCHAR READ OME CHARACTER. 
HER: Pa | SWICHAR WRITE OME CHARACTER. 
ice | ee $PRSCL. PRESET COMSOLE UART. 


— 


BIE: 


sas Ga rm 
a 


“Q 


a8 


SEU + EEE EF 
a i. 


a SIHBUF ~ TYPE-AHEAD EUPFER 


LOCATIONS 46S THROUGH 48GG5F ARE USED IH 
THE SANE MAMHER AS BY THE He COWMSOLE DRIVER, 


eget 


BUFFER COUT. 
“} THE BLFFER, 


eT MELIF BD 
eS 


ba 


Be 
ST MESLIFL. Et fe THEBUF—-1 MARITAL BUFFER COUT. 
i a 
FP. IMEI EG SLHBUP-LeBeR FIMBUF PAGE. 
ERRM2 be BGEA-F. TMELIF 
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PROGRAM HARES CCS SUPPRESS - MORGAN < CONT<D 


a8 


fo 

4p 

rt 
} 1 

feof 

ae | 
' 


Pate = SPECIAL CORTEOL CHARAETER THBEE 


LOCATIONS 48266808 THROUGH 48235 ARE LISED IH 

THE SARE SAWHWER AS LOCATIONS 48217 THRCLGH 

S62468 OF THE HS CONSOLE DRIVER. EXCEPT THAT 
THE TABLE IS ARRAHGED IH ORDER OF DECREASING 
CHARACTER CODE. 


POSTE OE Sot t 8 CONTROL-S. 


at 
fr 


= 
ml 


¢ 


COMTROL a. 
CONTROL-P. 
COMTRCL—a. 
COMTROL—-D. 
COMT ROL —C.. 
COMTROL—-E. 
COM TROL A. 


ul 
Dik Siti. 1 
Tag eeitts 1 
DE LPG. LPP 
DE Sebi, PPE 
bic BSG. Lari. 
DE BIS. Lit, 
DE Siti. Let. 


mele" es 
gt x 
fa me mh 


t 


‘os 
re 
Boe 


o£ 


a 
fy mr Sy 
Sa = 


haba ba td mm & 
my 


— be Om O58 Ta 4 


3% 


PLosib En FCSIE-1TSGGRH ¢ChIE PAGE. 
ERRMS + LeGGgA-P. CSTE 


ve SPSCC —- PROCESS MH SPECIAL CONTROL CHARACTER 
~ CHL? = @ CONTROL CHARACTER FUNCTION. 


m — HOME. 
= ~- ALL EACEPT B.C. 


PERFORM THE COMTROL FUNCTIOH. 


a 
us 
Si 
bry 
ro 
a, 
= 
fr 


ve if AOUSER COMTROL CHARACTERs «x. 
oe GO TO WSER PROCESSOR. 


E MT. IMF 
RRS #OSIC—# 
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CSMOMMFRMTPWECADSERECED <UOCORKL> TI 


PROGRAM HARE: CCS SUPPRESS — MORGAN < COHT“D > 


$CSIc 
$CSLCTL 


+ re 


A 
ui 
ma 
ce 
—j 


os 


+ 


COMSOLE STATE DATA 


LOCATIOWS 4620 THROUGH 48254 ARE USED IH 
THE SAME MAWMWER AS BY’ THE He COWMSOLE DRIVER. 


ERR ++ 
DS 4 @ USER CTL CHAR PROCESSOR. 
DS 1 COMSOLE COMTROL BYTE. 


DS 
SS0UT — QUTPUT STATUS 
EMTR' CAD = STATUS. 


EXIT —- WOHE. 
LISES: HOME . 


CALL #CTSc COMSOLE STATUS. 
JMP ETSOUIT TAPE STATUS. 


EMATCH -— WAIT FOR MATCHIMG INPUT 


EMTR'Y - (Do = CHARACTER TO WAIT FOR. 
EsIT —- “A = CHARACTER ACCEPTED. 
Lises = F. 


READ A CHARACTER. 
CALL  #RCHFF. 
IF I7 DOESH’T MATCH AWD ISH T 
A COMTEOL CHARACTER.... 


QUTPUT BELL AWD TR! AGAIH, 
CH FMBELL. 
a $MAT CH 


ERRMA $URPER— HO ROC FOR "eo. BUT 


i2 


Set Leet 


PROGRAM 


seo 


ot: 
a 
oe 
4: 
fe 
He 
of 
+: 
+: 
Sa 
x 


LIFPE FS 


a ao 


wit ete 4 EF 


14 
cy 
oe 

1 
mt) 
= 


+ 


PRCHAIRE 


HMRPTE * 


FUPPER 


EHTRY 
EXIT 
USES 


DE 
ERRNZ 


MOMPERTECWEARERECE> <UOCOOKL> TI 


CCS SUPPRESS ~- MORGAN «< COHT“D > 


SUPPER IS HARMLESS. 


- CONVERT TO UPPER CASE 


CHARACTER. 
COMWERTED CHARACTER. 


~ {AD 
— {> 
- F. 


IF I0°S A UONER CASE LETTER. «es 


COMMERT TO UPFER CASE. 
MI.SUT 
+— ESP A 


LOCATION 483@PA 15 USED IH THE SAME MAMWER 


AS BY 


De 


RET 


FRICHAR 


EHTRY 
EXIT 
WEES 


PUSH 
PUSH 


List 

Po 

AWA 
2 


tk. 


THE HS COMSOLE DRIVWER,. 


al SERIO TO ALLOW LOWER CASE. 
480 FOR UPPER CASE ONL". 


- READ A SIMGLE CHARACTER 


— HONE. 
- {fo = CHARACTER. 
- F, 


WAIT UNTIL THPUT BUFFER WOT EMPTY. 
H. $TNBUF 
Fa PA 
Fi 
$RCHARE 
PREVENT BUFFER CHAMGES BY $CSINT. 


126 


PROGRAM HARE: 


#RCHARD 


bo 
te 
SEE 
Ed 
+ 
+ 
bo 
i 
= 


WICHARF! 


#CHAR: 


FS Saeed 
FWCHARS 


DT 
DCR 


MO 
ADD 
Mmcu 
Mat 
Mc 
MCW 
DCH 
DCR 
JHE 


CALL 
STA 


JMP 


SWICHAR 


CCS SUPPRESS -— MORGAH < COHT’D > 


DECREMENT BUFFER COUNT. 


br" 4 
os 


RETRIEVE AMD REMCOWE MEST CHARACTER. 
{D> = COUNT 


a eu 


CHL = & LAST CHARACTER 


bar) 
—_— 


IDamrrg 
m 


tb 
FRECHARD CAS = CHARACTER 

COMVERT CHARACTER TO UPPER CASE. 
FUPPER 

SAVE IT AS LAST CHARACTER READ. 
#CHAR 

ALLOW BUFFER CHAHGES. 
INTEXIT 


-~ WRITE A SIMGLE CHARACTER 


EMTR'Y - <A> = CHARACTER. 


EMIT 
USES 


PUSH 
pyc 


DE 
DE 
CFI 
CHC 


Ck T 
STH 


LDF 


- HOWE. 
-~ F, 


DA 
IF LAST CHAR READ HAS BEEM ECHOED 
AHD IS A PRIHTING CHAR.... 
AI. MUTA 
LAST CHARACTER READ. 
ECHOED+” 
WAIT FOR MATCHIMHG INPUT. 
EMhMATCH 
THDICATE CHARACTER HAS BEEN ECHOED. 
ECHOED 
$CHAR 
WAIT UATIL OUTPUT HOT SUSPENDED. 
$CSLCTL. 


LHe ,UstG> <5S2¢ 02 FRC T SWS eS E> <UseOseL> 1 


PROGRAM HWAMES CCS SUPPRESS - MORGAH < COMT“D > 


an 


*< 


EDAT OUT 
We 


os 


FDAT COU 


i 


“a 
Al 
Wy 
mm 
an 


ae FWUCHARS 
IF QUTFPUT HOT BEIHG DISCARDED.... 


McH A.B LAS = CHARACTER 
PCr ss 


QUTFUT THE CHARACTER. 
ERRHS #DATOUT—+ 


$DATOUT -— OUTPUT A CHARACTER 


ENTRY - Ro = CHARACTER. 
Esit = NONE. 
SES = NGHE. 


PUSH FS 
WAIT UNTIL COMSOLE READY. 
| te epee a Lae 
FP 
JHC DRT OLR 
OUTPUT THE CHARACTER. 
FOr PeSkd 
She ECOOLIT 


$PRSCL - FRESET CONSOLE DRIVERS 
ENTRY -— HOWE. 

EXIT -— HOHE. 

USES ~ BseFasHal. 


PRESET COMSOLE UARTS. 
cy 


4 SD oe SO 4 
ir ~~ a So 
a 
CC 
a 
‘eke 
hi 


ys 


CLEARF IHFUT BUFFER. 
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SHSSUSKG> <SEMOSKF OCT OCWSCAPSROXED> <USKOOKL> II 


PROGRAM HAME: CCS SUPPRESS - MORGAH < COMT“D > 


MRA Fl CAD = @ 
STA S1IHBUPF 
oe SET UF COWMSOLE INTERRUPT HAMDLING. 
PMT Ao MI. IMP 
STA UIVEC+S 
Leal H. CS THT 
SHLD UIVEC+? 
ot EMHABLE COMSOLE IMPUT. 
MUT Fis 2c! 
JF $C 1S0 


a fCSIHT - PROCESS A COMSOLE INTERRUPT 


EXIT - ENABLE INTERRUPTS. 
USES 


+e 

4 

oe 

Me 

ENTRY - HOME. 
ae 

i NOME . 
nfs 

$CSIMT PUSH H 
PUSH D 

PUSH PS 


IF DATA IS AVAILABLE.... 
CALL #CISI 
AT = 
oe TIHPUT & PROCESS THE CHARACTER. 
CHE #DATIH 


Por Pak 
MF INTEAIT 


# DATIW - INPUT AWD PROCESS CHARACTER 


HE 

oe 

a 

Bo 

# ENWTRY ~- HONE. 

4 EXIT = HONE. 

oe USES -— HLL BUT Bat. 
+ 

se 

= 


THPUT THE CHARACTER. 
DATING CALL $CD1H 
ALT LP rtt CAS = CHARACTER 
al DISCARD HULLS. 


SHES Lee Se Oo Fe Techs Abe Roce SUE Oe L > Il 


PECGEAM HEME: COS SUPPRESS -— MOBGAM < CONT<D 


cod BETERMIHE IF IT°S A SPECIAL 
Me COT ROL CHARACTER. 
LHI H. $C 57TE 
EDATINS CMF iM 
THE 
ok if i) iS. PROGESS SPECTAL 
* COHTROL CHARACTER. 
JE SPS 
IME H 
IMS 4 
mf Bs FDATING 
HE IF IT I1S5H°T. PROCESS HORMAL 
HE CHARACTER & 
riot C3. FA 
oh TF THE BUPPER fs FURL. ws 
PIT Lo GREIHBUF CHL = oo EINELIF 
ERRHS F.CSIB—-P. IMBLUF 
Mow! Fis hl 
EPL IMBUFL. 
bs od 
FEWIBELL WT A. BELL 
He FDATOUT 
ae IF THE BUFFER HOT FULL.... 
oh IHMCREMEMT BUFFER COUHMT. 
THF rH 
ae PLACE CHARACTER IM BUFFER. 
hye! Aab 
ADE hf 
bcs Low A YHLO = @ EAD OF BUFFER 
hc M.D 


CUTPUT BELL. 


RET 


EME Eh Tey! 


<HeCUSKG> 8 <S>K OCF TICWSKASKROKE> <U><O><L> II 


PROGRAM HAME: MATL LABEL — FARMER 


Tits “LABELS FPROGEAM —= MAY i9rs* 
Sit. “COMSOLE DRIVER ROUTIHES” 


= 


LABELS FRCGRAM 


PROGRAM TO READ TAPE FILE PRODUCED BY .TED. 
AMD LIST ADDRESS LABELS OM THREE PART AVERY 
TYPE LABELS (3 i-Z 2A 15163) 


PROGRAM USES O8f PLOW PRIATING METHOD AWD IS 
WRITTEM WITHCRIT FAD CHARACTER. 

FROGRAM WAS WRITTEN TO RUM OM A DIABLO 1l628-3 
TERMIHAL WITH TRACTOR FEED. 


PROGRAM ALSO USES MODIFIED HEATH COWMSOLE 
DRIVER AMD PAM ROUTIHES. 


PROGRAM WRITTEN Bis 
M. FARMER 
MIKE AWD KATHY DATA SERWICES 
veo WEST i4STH STREET 
GARDEMA. CALIFORNIA Se@re43 


DATED MAY 197s 


t 


ORG 481 G0F START OF USER RRM 
st ASSEMBLY COMSTAHTS 


BEL. Etat @ 
eUIVEC EG & 
START a i DUMP START LABEL 
a 
a 


A 
RESTART Et Ft GUMMY RESTART LABEL 
A 
E 


OE a 


COMP IG EQHU 


DUMMY COMFIG LABEL 
stot S251 USART BIT D 


AhetUelGe <S2 (OP ee tesa RE 6 AU ORELS 6 


PROGRAM MAME: MAIL LABEL - FARMER < CONT<D 


UPI. HE Em LeBBeaae 
UPlT. SE EGS LL GeBeaae 
UPIT .PE ECHl BG Baa 


US. PR EGHI BES 1 SE 
Eg Ee Et AGAARAAS 
UPT. Le EL SRG 
Lf lara ea Ett EA 1 
UMT. Le EG Pes Se a 
UT Le Emu E 
WT. lee EGU SE 
UU. Gee GH peat Sa Lata 


‘wh 


iF 
naapeeeases 


mie f 
i 
me a me a 


ed 
mt & 


he 


aot CORAM THS TRC 


5 
=| 
= 
pee 
oof 
uy 


GL. Le Emi et 
LET Real Emu G 
LCI. ER EH SiS SAL sd 
Unt, Re frit} rerstetahtets 


BP i Ee 
—otE | 86EGU BACGAG 1 GE 
tee * 


2 EL AAAAAAAL 
a STATUS READ COMNMAHD BITS 


USe, FE EH 

earl ad Emi) 
Ertl 
ECL! 
Em 
EG 


Mev COS. - SYSTEM COMSOLE AWD I-0 DRIVER 
she T-O PORT ADDRESSES 


IF. CDP Ea Sra 
OP ..GDP EG! Srl! 
PP ors EG SP at 
OP .CisS Ett sarod 
PP Gs Eriut Srotd 
Oe. cos Et or ots 


SHECUDS 


CSSCOStF PA TOCWOCASA REC E> <USKOreL> II 


PROGRAM HAME: MAIL LABEL —- FARMER < CONT“D > 


Le oe 
OP: TDP 
Le io 
OF. 1S 
Meo 
CC.HLD 
Ci. GF 
CC.CTLA 
CC .CILS 
CC. CREE 
CC.CTLD 


sek 


ENTRY 


sR 


$CDIH 
RET 


$CDOUT 


#TDIN 


Ett ar Gt 
EG ar Gt! 
Eri 37 1a 
ECHL orig 


SCSLCTL “CONSOLE CONTROL FLAG? BITS. 


EQUI Bi 
EGiut Gz 
EG Big 
EG BSE) 
EGU G4er 
EG 1@et 


PROGRAM ENTRY POINTS 


JMP COMF IG 
JM RESTART 


PORT ROUTINES 


IH IP.CDP 
RET 


OUT OP. CDP 
RET 


It IP.CIS 
RET 


CUT OP.CIsS 
RET 


IH LIP Ces 
RET 


QUT or.COS 
RET 


IH IF. TOP 
RET 
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PROGRAM HAME: MAIL LABEL — FARMER «< COHT“D > 


£TOCIT CHIT OF. TOP 
RET 


ETSIN tH IP. TSP 
RET 


$TSOUT CIT is Cone 
RET 


HEHE REMOTE ENTRY POINTS FOR CONSOLE DRIVER 
$RCHAF IMF FRICHAR . READ OME CHARACTER 
#UNCHAR IMP #WICHAR. . WRITE OME CHARACTER 
$PRSCL IMP SPRSCL. PRESET COMSOLE UART 


Hes DATA AWD BURFPEERS 


#1THBUF DE a 
aS 3a 


$IHMBUFL EGU 4 THEBUF 2S 


feo CONTROL CHARACTER TABLE 
. DE CHAR. MASK. WALUE 


mit 
hb hee 


$CSIB DE 
CoEt 


—, 
alt 


che SP Ed. EU CTL-® <G@@—-HULL> 
Hl. LBP. 21a) CYrL-A 
‘ 


DE A201. LSPG. 22e0 CTL-68 
DE Git. LSPG. 2480 CTL-c 


OE Se. Gre. SAG Sfp 
GE Ifa. iF Pa, Beso CTL—-ao 
DE SA. TP SG, Sets CTL<=-P 
CE S21. 1 Feat, Beet CTL- 
DE 23. 1 PB. Sei Cres 
[Et i7re EMD OF TABLE 


<HeECUSKG> <SS<COSK POC TSSWOKAPSROKES> <USKORKL> TF 


PROGRAM HWAME: MAIL LABEL - FARMER < CONT“D > 


oe $CSIC - ADD OF INTR TIME CTRL CHAR PROCESSOR 


$CSIC 
$CSLCTL 


i 
$CSLLEW 


see 


$RICHAR. 


$RCHAR 1 


FRICHARA 
FRCL. S 


ERCHARZ 


SET 
ERRMZ 


$RICHAR 


PUSH 
LAL 
Mai 
AA 


JZ 


ty 
PLISH 
DCF: 
Mic 
THs 
pit 
GPL 
JHC 
CFI 
ate 
SUI 


Ett 


PUSH FShdl 


DCR 

JM 

THe 

Mow ALM 
DCH 

Mat 

Tid 

JP 


RET 


Omi mS 


a 


#INBUF <1 GGA 
#1 EIA, 


READ SINGLE CHARACTER 


» FIMBUF 
sh 


$RICHAR I 


MA 
H 
$RCHARS 


PROGRAM 


FRCHARS 


sek 


EWICHAR. 
SLNCHAR 1 


$CS1I2 


Bo 


$LCHARS 


MAME: MAIL LABEL - FARMER < CONT“D 


$WCHAR - WHITE SINGLE CHARACTER 
PUSH FS 
LDA CSLC 
ERRHS CC .HEo 
RAR 
ane 
RAP: 
ERM 
JHC 
FCF 
RET 


$WCHAR 1 


CC. DMP-2 
$UCHARS 
Psi 


QUERLCY TYFE-AHEAD BUFFER.ECHO BELL. 
DF M4 

IT A. BELL 

PUSH PStt 


TPE (HACTER 


CALL $0051 
ERRHE 

RAR: 

JHC 

POF 

JME 


USE. THR-1 


FuICHARS 
Fede 
ECDOUT 


$PRSCL - PRESET CONSOLE DRIVERS 


PRT 
CALL 
CALL 
hI 


Ay 261A 
#C Isa 

#7 SOUT 
FL.UCT. IF 
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SHSCUSKG> <SOKOSCF oC TORWSCASKROCE> <U>KOS<L> II 


PROGRAM HAME: MAIL 


ESE 


$CSINT 


C313 


CALL 
CALL 
MUTI 
CALL 
CALL 
“RA 
STA 
MT 
STA 
Lit 
SHLD 
MT 
IMP 


sCSINT -- 


PLUSH 
PUSH 


HAVE DATA 


LAr 
PHIT 
Chr 
CE 


LABEL ~ FARMER®:<: CONT“D > 


#CIsa 

$TSOUT 

AUNT. iB+UMT. LS+UMI. 16x 
$C 150 

$TSOUT 

Fi 

FINBUF 

Ay S@SGi 

-UIVEC+S 

H. $CSIMT 

eUIVEC+? 

A.UCT. ER+UCT.REtUCTI.IE+tUCI.TE 
$C ISa 


COMSOLE INTERRUPT PROCESSOR 


H 

PSW 
$CISI 
USE. Risk 
$CSTi 
PSU 

H 


INTERRUPT 


H» $I HBUF 
A. $IMBUFL 
MH 

CS 12 


ADD CHARACTER TO GUEWIE 


IHF 
Mow 
ADD 
Mow 
CALL 
AT 


CS>C OOK F OM TOMS AS ROK ES <US<O><L> If 


PROGRAM HAME: MAIL LABEL ~- FARMER « COHT“D > 


CSTE 


Mee 


Ir. FAD 
GP CTE 
OP. BIG 
OF. SEG 
IF. TRH: 


Pq M.A 
CHECH FOR SPECIAL CONTROL SEQUENCES 


CPI 
A | 


HAWE CONTROL CHARACTER 


PIT L» #ECS1E-2 
IW H 

THE H 

Che rH 

Rit 

IH H 

JHE $CS15 

LDF SC SLETL 
AHA rH 

IH H 

ARIA nr 

STA SCSLECTL 
PLUSH Pohl 

PHIT Ls #EIMBUPF 
DCR ni 

Par FS 

RF 


HAVE SPECIAL CONTROL CALL USER ROUTIHE 


LHLD $CS1IC 
FCHL 


eof “PAM-S —- ASSEMBLY CONSTANTS” 
I-0 PORTS 

Emu Seed 

EQU S680) 

EGU SEG 


Emu S610 
EQ orig 
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CHPCUDE 


CSPLOSKF oC TOMWSCADAROCE> <UEKO><L> II 


PROGRAM WANE: MAIL LABEL -— FARMER < COMT“D > 


OF. TFC 
IP. TPD 
OF. TPD 


CE.CLI 
CB. SPK 


bs os of 


DP. MF 
Dor. Pity 
Dr. RR 
DM. Feud 


seve 


RT. MI 
RT. BF 
RT.CT 


seo 
BLESIZ 
veo 


Pi ALE 
MI.RET 
MI.IH 

MI. GUT 
MI.LDA 
MI. AMT 


EGU orig 
EGiu Sr aa 
EGU Sree 


ASCII CHARACTERS 


EG B260 
EGU BG2C 


FROHT FANEL HARDWARE COMTROL BITS 


EQU BGG 1 BGG 
EQ BG1 BAGGGE 
EGiu 41 BGGGGGR 
EC LGGSGRGRE 


DISPLAY MODE FLAGS 


EGit @ 
EG 1 
EGU = 
EG 3 


TAPE EQUIVALENCES 


EG 1 
EGU 2 
EG = 


BLOCK SIZE FOR INTER-PRODUCT COMMUNICATION. 
EGui 312 


MACHINE IHSTRUCTIONS 


EG Bijigiige 
EQU LIGB1ee1s 
EGU 1iG@iigiis 
EGHl LiG@iG@eaii1e 
EGU BG1 11 G1 86 


EG 111961188 


fHEAuUse 


PROGRAM MARE = 


ME ate 
de 

Li. HLT 

LC. HR 

Lua. DBU 

Ut. CLE 


Be i of 


sek 


in 


SOE ESAT Pld 


MAIL. LABEL —- FARMER <° CONT"D > 


EGU 
USER OPTICOW BITS 
Ei LAG AGGGE 
EGiLt CE.CLI 
Eu AGGIE 1 AE 
EGill BRAGG 1B 


Ie id 


USART BIT DEFINATIONS 


MODE INSTRUCTION COMTROL BITS 
GIVEM IH COMSL 
STL. “MAIN PROGRAM” 


START OF CODE 


PROGRAM ENTRY POIMTS WITHIN PAM 


EG eS 265A 
Eu BES S25 
EQ GBESS31A 
EG Aa Se 
EGU Aa? 1 SSA 
Ets AS iP ZA 


ROUTIME READT 


READS ONE RECORD FROM TAPE INTO — INBUF 


Emi BS 

CALL SRS 
MoH L.A 
SHLD THEUFS 
BCHG {DED = 


SCAHM FOR REC START 


STORE COUNT 
COW T 
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fHSeUSeG> 


PROGRAM 


RDT 1 


» START 


TOP 


TOF 1 
P.@ 


<S><OecF OS THCWOSKASKRESE> 6 6<<US<Oo<L> =I 


MAME = 


CALL 
Mew 
THis 
DCH 
Maw 
ORA 
JHE 


CALL 


“RA 
QUT 
RET 


EGi 
CALL 


LHI 


LHI 
IMs 
Mow 
Mou 
CALL 
Lal 
IH 
Mc 
Mon 
CALL 
1 
PLAT 
TH 
PIT 
LHI 
PIT 
PIT 
LHI 


H.» IMNBUF 
H 


RME: 
M.A 
H 

8 
A.D 
E 
RDT1 


RMF 
A 
OP. TPC 


HE 
$PRSCL 


SP. ST.PTR 


H. THBP 
H 

Alt 

C.A 
READT 


H. THBUF 


H 

Fe PA 
C.A 
READT 


MAIL LABEL - FREMERS CONT’D ‘> 


CHL? = START BUF 
READ BYTE 

PUT IH BUF 
DECREMENT COLIMT 
MORE~-GOTOQ RDT1 
READ CRCSUM AMD 


DISCARD IT 


STOP TAPE 
RETURN TO CALLER 


READ LABEL RECORD 


READ HET RECORD 


14] 


CHPCLUGLG> SOCOM P OK TOCWCADEROCKE? <URKODKL? TI 


PROGRAM HAMES MAIL LABEL - FARMER «< COMT“D > 


SIE M 
Jc oe 


re) 
Mal 
STAM 
LXI 
Mo 


MIMI ToDoT 
Re 


m 


he 
EIUDOT mrmorenor 
me 


bho 
rae 
mah a 
ae Os 


a 
ha 
5 
= 
7 
T 
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CSP OSiF et THC AS ROS E> 


PROGRAM HAME: 


P.S 


FP. SAA 


Mow 
hot 
SBE 
JE 
CALL 
LHI 
PRIT 
IH 
PIT 
Leer 
Pic 
IHF 
ric 
LMI 
DAD 
Mics 
LAE 
SUE 
cl fa 
LMT 
Mil 
MUT 
IHF 


MAIL LABEL - FARMER < 


C.F 

L 

B.f4 

H. INBUF 


= 
A. td 
a 


ee a 
Zi 


Bott 
H. INBUFS 
ry 


H. IHBUPF 
E 
ALM 


2U><O><L > 


COMNT“D > 


II 


CSoCOSC KF oC Teco Ae Roce > 


PRGGRAM MAME s 


P. 3A 


DAD 
Pet 
LHI 
Pio 
LHI 
hon 
THF 
Pr 
LMI 
DAD 
Pts 
List 
SIE 
Al Fad 

Litt 
Mic 
IHF 
row 
Litt 
DAD 
Pyo 
PHS 
PIT 
SUE 
SHIT 
Let 
cn 
IHR 
Mc 


MAIL LABEL - FARMER < 


ge ee gpg 
a 


= 
_— 


ae 


HELIF 


H 
C 
L. 
Bi 
Hs 
E 
Al 
Hs 


FA 


= 


+ INBUF 


+ BLE 


% 
ae ec 


— 
ey 


‘- “ 


»LBUF 1 


MIMNOTIBOT garwMrorw9sar9 


QUE OSL 


CONT“D > 


& 


II 
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PROGRAM MAME ® 


P.S 


P. SA 


PUSH 
LAI 
MOW 
IHR 
Mo 
Liat 
DAD 
Mow 
POP 
Mow 
LHLD 
THe 
SHLD 
Lat 
IHF 
JP 
LHLD 
THis 
SHLD 
LAT 
cH! 
PIT 
THR 
DAD 
Mons 
Lt 
Mou 
LHI 
Mon 
THR 
Mon 
Lisl 
DAD 
hci 
LAI 
SUB 
Jz 
Lit 
MCW 
IMF 
Mon 


PROOF OK THKWSK ASK ROCE> =6<<U><KO><L> II 


MAIL LABEL - FARMER < CONT“D > 


- 


an 


Pl 
» IMBUPF 


qruzraorwrores 
= 


=a 
~~ 
a 


. ort 


- 
i i 8 
ra 


ZSutArAz 


ade? 


HBLIF 


ig 


i = 
road 
iy 


SLEH 


TVSTBOLOCOLTSTpIoOrGorere 


‘~ . 
ty 
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-.UStGS <5 


PROGRAM HARES 


LHI 
Mots 


P< O>4F 3 TWA RSCE> 


MAIL LABEL - FARMER 


= Ca Ts 


ry 
» THBUF 


0 ate SO a a Ss A Sie 


BLE 
rn" 
a Bs 


as) 
»LBUFS 


a 
a 


ab 
» INBUF 


i 


tA 


Li 


A 


SuARIutisTaoLlrwrntsosonrepos 


“Soe > ET 


< €CONT"D > 
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SHeeUs<G> 


a» 


CSC Oot ee TOK WOK AS ROC E> 


PROGRAM HAME® 


=] 


tT 


SHLD 
LHI 
Mon! 
PHIT 
THF 
DAD 
Mcws 
LAI 
Mots 
LHI 
Mc 
IHF 
Mou 
LHI 
DAD 
Moan 


THF! 


MAIL LABEL - FRRMER < CONT’“D > 


‘* 2 © we 


oJ 
AM 


nM 
s INBUF 


~~ “ 
pe 


M 
» THBUF 


6 


. 
fy OH 


QrOorVgoDoIDONrTaArorysaraagrarnrarpraoraors 
= i 
aa 
uy 
a 1 


—_ 


ri 
THBUF 


f 


a 


is 
J 


mot Lite 


~—, 


BLHE. 


a 


LUSK O><L> 


it 
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PROGRAM MAME ® 


7 
2 
mn 


FP. 1GA 


{S24 024 F Teo ASc RS E> 


He Fk 
a i 
By @ 


H. LEU S 


= ¢. 
= oi 


iT 
» THEUF 


LDOT Or os To 


aE 


Tataveraru: 
ral es 
a D 


US 
rt ho 
AD 


A.M 
a $LICHAR 


es ole 
i ee 


De So ae Se 
te 


come 


4 
7 


aa eG 0 oe 


MAIL LABEL - FARMER < CONT’D. > 


is 
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“HOCUS G> <SRCOPC PSA TOKO AP RCE? = <UECKOSe > TI 


oO 


PROGRAM NAME: MAIL LABEL —- FARMER < COHT“D > 


CALL $WICHAR: 
LxI H.I 
IHF: i 
JHZ P. 1oF 
Feil LYI HLF 
RICIL) A.M 
CALL $lWCHAR: 
LXI H. ESC 
MIC A.M 
CALL $lICHAR: 
INF: L 
ae) ALM 
CALL $WWCHAR: 
LI H. BLMK 
MCI A.M 
CALL $lUCHAR 
LxI H.I 
coy MIT MG 
P.1z MT A. 39 
L¥I Ha I 
SUB M 
JC P.13 
MUT A. a9 
SLE: M 
IHF: L 
MI Me A 
MCI CoM 
MUT Boe 
Lil H» LBUFZ 
DAL 
KCI A.M 
CALL $LICHAR: 
LI HI 
IHF: M 
JHE P.i2 
P.413 LI H. CR 
MICH A.M 
CALL $lICHAR 
INF: L 
MCI A.M 
CALL $WCHAR: 
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SHOU GS 


{Sec Oo<F oc ToCWSCAS RK E> §6<U><KO 


PROGRAP AMES 


FP. ls 


Ts 


LHI 
MI 
MUI 


Maw 

CALL 
CALL 
CALL 
CALL 


THF: 
Mow 
Lil 


AT 
$WCHAR 
iS 

Aa I 
$UICHAPF 
SWICHAF 
$uUICHAR 
EWICHAR 
Ho J 
Gali 


opens 
= 

eM 

4. DOLS 


BoM 
H. THEUFS. 


Sd “s. 
Pie oo 


MAIL LABEL —- FARMER «< CONT’D > 


ry 
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<HOCUSKGS <S><OSKF 2c T MWC ASKR E> <UOKOSKL> 6fT 


PROGRAM HAME: MAIL LABEL - FARMER < COMT“D > 


oo SPACE AHD DATA COMSTAHTS 


LEBUIF 1 DS 13G 


DOLLS DE 24H 
ESC DE 1BH 
REM DE: 36H 
LBUFS DE 
THBUFS DS 
J DS 
I DS 
kK DS 
KR bs 
INDE DE 


4, 


ind 
“J 
a 
— 


DEFINE STACK 


GI - 


ST.FPTR DS 
THEUF Ds 


Mie eee RIND 


er) 
ti 
i 


DEFIHE INPUT BUF 


EMD ENTRY 
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